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000001 TITLE DCMVAs»*78072500* MLCP LINE ADAPTER TEST 
000002 * 
000003 * 
000004 * DESCRIPTIONS 

., 000005 * | 

¢ 000006 * THIS T&V PROGRAM VERIFIES PROPER OPERATION OF THE LEVEL 6 COMM LINE 
. 000007 * ADAPTERS» WHICH ARE ATTACHMENTS TO THE MULTILINE COMMUNICATION PTOCESSOR, 

000008 * 
NO0009 ® THE SUBSYSTEM ITEMS SUPPORTED BY THIS PROGRAM ARE: 
000010 * 
000011 * MLC9101 MULTILINE COMMUNICATION PROCESSOR 
000012 * MLC9102 MULTILINE COMMUNICATION PROCESSOR 
000013 * MLC9103 MULTILINE COMMUNICATION. PROCESSOR 
000014 * 
000015 * DCM9101 DUAL ASYCHRONOUS ADAPTER 
000016 * DCM9102 SINGLE ASYCHRONOUS ADAPTER 
000017 * DCM97103 DUAL SYNCHRONOUS ADAPTER 
900018 * DCM9104 SINGLE SYNCHRONOUS ADAPTER 
000019 * DCM9105 SINGLE WIDEBAND CURRENT MODE SYNCHRONOUS ADAPTER 
000020 * O0CM9108 SINGLE WIDEBAND BALANCED LINE SYNCHRONOUS ADAPTER 
N00021 * DCM9109 SINGLE MIL 188C SYNCHRONOUS ADAPTER 
000022 * OCM91171 SINGLE CURRENT LOOP ASYNCHRONOUS ADAPTER 
900023 * DCM9114 DUAL CURRENT LOOP ASYNCHRONOUS ADAPTER 
000024 * 
N00025 * REVISION HISTORY3 
000026 * 
000027 * REV DATE 
000028 * A JULY 76 ORIGINAL RELEASE 
000029 * B AUG 76 
000030 * C SEPT 76 
000031 * D DEC 76 
000032 * E MAR 77 
000033 * F MAY 77 
900034 * G JULY 77 
000035 * H OcT 77 
00036 iH VA AUG 78 
000037 * 
900038 He KK KK KK KK KR KK KKK KKK KKK KKK KKK KKK KKK KEK KKK EKKKEKEKKKKK KKK 
000039 * THIS DOCUMENT AND THE INFORMATION CONTAINED 
000040 * THEREIN IS CONFIDENTIAL AND PROPRIETARY TO AND THE 
000041 * EXCLUSIVE PROPERTY OF HONEYWELL INFORMATION 
CO00042 * SYSTEMS INC. IT IS MADE AVAILABLE ONLY TO HONEY- 
000043 * WELL AUTHORIZED RECIPIENTS FOR THEIR USE SOLELY IN 
000044 * THE MAINTENANCE AND OPERATION OF HONEYWELL 

* PRODUCTS. THIS DOCUMENT AND INFORMATION MUST BE 


( 990045 


TITLE DCMVA 


000046 
000047 
000048 
000049 
000050 
900051 
000052 
900053 
900054 
000055 
900056 
200057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 


900065 


000066 
000067 
000068 
000069 
900070 
900071 
000072 
000073 
000074 
000075 
000076 
900077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
900091 
000092 
000093 
000094 
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MAINTAINED IN STRICTEST CONFIDENCEs IT MUST NOT 
BE REPRODUCED IN WHOLE OR IN PARTs AND IT SHALL 
NOT BE DISCLOSED TO ANY OTHER PARTY WITHOUT THE 
PRIOR WRITTEN CONSENT OF HONEYWELL. 


PROGRAM PREPARATION: 


THE ROOT SOURCE OF THIS PROGRAM, AFTER THE ADDITION OF APPROPRIATE 
TITLE AND END STATEMENTS» WAS PROCESSED BY THE HOST RESIDENT ASSEMBLER 
TO CREATE ELTHER SHORT OR LONG ADDRESS FORM (SAF OR LAF) OBJECT TEXT 
AND LISTING. THE OBJECT TEXT WAS FURTHER PROCESSED BY THE HOST RESIDENT 
LINKER USING THE APPROPRIATE CONSOLE ZVSLIB LIBRARY TO CREATE A PUNCH 
SEGMENT CONTAINING AN EXECUTABLE MODULE. THE ASSEMBLY LISTING WAS 
AUGMENTED WITH CROSS REFERENCE DATA PLUS THE LOAD MAP FROM THE LINKER 
TO CREATE A LIST SEGMENT. 


ROOT SAF LAF 


NAME © DCMX1 DCMS1 DCML 1 
DOCUMENT ***SPECIAL ***SPECIAL ***SPECIAL 


PROGRAM DISTRIBUTION: 


THE ELEMENTARY ITEMS SUBMITTED TO THE T&V PROGRAM DISTRIBUTION CENTER 
WERE THE EXECUTABLE PUNCHED CARD DECKS OF DCMS1 AND DCML1is AND MAGNETIC 
TAPE IMAGES OF THE AUGMENTED LISTINGS. 


REPRODUCTIONS OF THE EXECUTABLE CARD DECKS MAY BE AS DUPLICATE CARD DECKS 
OR AS MEMBER "VL" OF A MULTIPLE MEMBER FILE. IN THE MOST FREQUENT CASE 
IT WILL BE FOUND AS MEMBER VL WITHIN FILE PROGFILE OF A DISKETTE VOLUME 
ENTITLED DIAGS, : 


DISTRIBUTION OF THE LISTINGS» WHICH SHOULD BE AVAILABLE IF ANY COMPLEX 
MAINTENANCE OR REPAIR IS TO BE PERFORMED» IS NORMALLY MADE AS A 
PRINTED COPY. 


ROUTINE DEMONSTRATIONS 


A MINIMUM SATISFACTORY TEST FOR NORMAL OPERATION MAY BE OBTAINED BY 
ANSWERING TH QUESTION "*NEXT*® WITH AN ‘°A* AND COMPLETING ONE PASS. 


MAIN MEMORY REQUIREMENT: 
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9000095 * 
000096 * THIS PROGRAM REQUIRES 8K WORDS OF MAIN MEMORY AND WILL USE 

000097 * ALL OF AVAILABLE MEMORY THROUGH 8K WORDS. : 

000098 * 

000099 KKM KKK KKK KK KKK KK KKK KKK KK KK KK KKK KKK KKK RH K KEKE KARE EKREKR EEK 
000100 * 

900101 * 

000102 * TEST PROCEEDURE 

000103 * 

900104 * 

000105 * BEFORE RUNNING THE CLA TESTs THE MOTHER BOARD TEST (MLCS1e#MLCL1) 

000106 * SHOULD BE RUN TO MAKE SURE THE MLCP IS OPERATING CORRECTLY. 

000107 * 

000108 * THE PROGRAM AUTOMATICALLY TEST ALL CLA*S WHICH ARE LISTED ABOVE 

000109 * UNDER DESCRIPTION. IT PROCEEDS TO EXERCISE ALL THE LINE ADAPTER 

000110 * FUNCTIONAL TESTS IN LOOP BACK MODE. 

000111 * 

000112 * THE TESTS ARE SET UP SO THAT ALL THE CLA*S ARE TESTED ACCORDING TO A 
000113 PARTICULAR FUNCTION. SOME OF THE FUNCTIONAL TESTS INCLUDE CHARACTER 
000114 * SIZE TEST» LINE SPEED TEST» PARITY AND CRC TEST» AND UNDERRUN AND 

000115 * OVERRRN TEST. 

000116 * 

900117 * 

000118 * 

000119 * OPERATING INSTRUCTIONS 

000120 * 

000121 * 

000122 * LOAD AND START COR RESTART) THE PROGRAM. THE PROGRAM IDENTIFICATION WILL 
000123 * BE DISPLAYED ON THE CONSOLE. THE INITIAL START WILL: ALSO DISPLAY: 
000124 * 

000125 * THE ZV$LIB REVISION NUMBER 

900126 * THE ADDRESS FORM (SAF OR LAF) 

000127 * 1/0 EQUIPMENT DETECTED IN THE SYSTEM 

000128 e MEMORY SIZE 

000129 * 

000130 * THIS DISPLAY MUST BE VERIFIED BY THE OPERATOR. THIS DISPLAY IS OMITTED 
000131 * ON RESTARTS. , 

900132 * 

000133 * THE CONSOLE SEARCH RULES ARE: FIND THE CONSOLE WITH THE LOWEST CHANNEL 
000134 * NUMBER CONNECTED THRU AN MDC CONTROLLER. IF THERE IS NO CONSOLE ON AN 
000135 * MDC» THEN SEARCH FOR A TERMINAL WITH THE HIGHEST CHANNEL NUMBER ASSIGNED 
900136 * TO AN ACLA ADAPTER ON AN MLC CONTROLLER. IF NO ASYNC ADAPTER IS FOUND, 
000137 * THEN GO TO THE FULL CONTROL PANEL. 

000138 * 

000139 * THERE ARE THREE CONSOLE CHANNEL OPTIONS DETERMINED BY THE VALUE OF 
000140 * CATION “ZVSTTY". 

000141 * - . 

000142 * IF ZVSTTY EQUALS (0000) SEARCH FOR A CONSOLE. 

000143 * 


IF ZVSTTFY EQUALS CFFFF)» ASSUME THERE IS NO CONSOLE. 


TITLE DCMVA 


000144 
000145 
000146 
000147 
000148 
000149 
000159 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
900171 
000172 
900173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 


000183 ~ 
00184 


000185 
000186 
900187 
900188 
800189 
000190 
000191 
000192 
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IF ZVSTTY EQUALS NEITHER (0000) NOR CFFFF), THEN IT IS THE CONSOLE CHAN- 


NEL NUMBER, NOTE: DEFAULT IS TO SEARCH FOR A CONSOLE. 
ALL CONSOLE I/O IS EVEN PARITY. IF CONSOLE 1S ON MLCy 
AND THE BAUD RATE SET AT 1200 TO MATCH THE PROGRAM SUPPLIED RATE. 
IS NECESSARY TO CHANGE THE PROGRAM BAUD RATEs THEN THE 
CODE SHOULD BE PUT INTO LOCATION “ZV$BUD" IN HEX. 
MUST BE TO MATCH THIS NEW BAUD RATE. 
OBTAINED FROM THE FOLLOWING TABLE. 
PD Pe SS ne OOOO OS OHO UE ODOR e DB Ewae * 
; * 
BAUD RATE TABLE * 
* 
sm Oe a ae ae we ne a ae ee ae toe Oe OO Oe ee Oe ow cae ae a OD ae ee aD Oe OO ee ne Oe we ee ee a a am eae *& 
ACLA 1.0. (2118)(2110) (2108) 
BAUD-RATE 
50 0 1 
ree: 1 2 
110 2 3 
134 3 4 
150 4 5 
200 5 --- 
300 6 6 
600 7 ? 
900 --- 8 
1050 8 --- 
1200 9 9 
1800 10 ¢A) 10 (A) 
2000 11 (B) --- 
2400 12 (Cc) 11 (8) 
3600 ~-- 12 (0) 
4800 13 0D) 13D) 
7200 --- 14 (E) 
9600 14 (EB) 15 (F) 
19200 15 (F) --- 


TO MAKE ANY OF THE ABOVE CHANGES, 
ECUTION. 


THE FOLLOWING IS A TYPICAL RESULT OF LOADING 
PROGRAM. 


HRS ASSEMBLER 5.05 


INSERT CHANGE THEN EXECUTE. 
"Z7VSBUD" MAY BE FOUND IN MAP AT END OF LISTING.: 
CONSULT LEVEL-6 T&V MANUAL 


PAGE 


CLA TEST <PGM NAME> <PGM DATE> <PGM REV> 


ZV$LIB REV. 
ZVSAF= 
WOT 


0004 


THE CORRECT HEX VALUE MAY BE 


AND 


LOAD AND HALT THE PROGRAM BEFORE EX-=- 
MEMORY LOCATIONS OF “2VSTTY" 


FOR DETAILS ON HOW TO LOAD THE TESTS. 


STARTING TO 


IT MUST BE ASYNC 


BAUD RATE 
THE TERMINAL BAUD RATE 


TITLE DCMVA 


000193 
000194 
900195 
000196 
000197 
000198 
000199 
000200 
000201 
900202 
900203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
00219 
000220 
000221 
000222 
000223 
900224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
900233 
000234 
000235 
000236 
000237 
000238 
000239 
900240 
000 241 
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CHAN DEVC ID 

0400 OSKT 2010 

0480 DSKT 2010 

0580 CDR 2008 

1200 DISC 2330 

1280 DISC 2330 

1300 LPT 2000 

1380 CONS 2019 

MEMORY LOW O000282D 
MEMORY HIGH OOOO3FFF 16K 


THE PROGRAM WILL THEN ASK3 


POWER LINE FREQ. 7: 
THE OPERATOR NOW ENTERS THE POWER LINE FREQUENCY IN DECIMAL 
FOLLOWED BY A CARRIAGE RETURN. THE DEFAULT IS 60 HERTZ» 
IF THIS IS DESIRED A CARRIAGE RETURN IS ENTERED. 
NEXT THE PROGRAM WILL DISPLAY: 
CLA CHANNEL (S) 23 
AT THIS TIME THE CHANNEL(S) OF THE LINE(S) YOU. WANT 
TO TEST SHOULD BE ENTERED FOLLOWED BY A CARRIAGE RETURN. 
THE CLA CHANNEL(S) WILL NORMALLY BE DISPLAYED AS AN ITEM(S) 
CONFIGURATION PRINTOUT. 
THE PROGRAM WILL THEN RESPOND WITH: 
NEXT ?8 
THE OPERATOR HAS TO ENTER ONE OF THE FOLLOWING LETTERS: 
"A" = RUN LINECS) WITH INTERNAL LOOP TESTS 
wc’ — RUN LINECS) WITH CONNECTOR LOOP TESTS 


"Dp" = RUN LINECS) WITH DIRRECT CONNECT LOOP TESTS 


IN THE 


"M"™ =— RUN LINECS) WITH MODEM LOOPBACK TESTS* USE EXTERNAL 


"Ut" = RUN ECHO BACK CCP 


IN ORDER TO RUN WITH "C" SELECTED, AN EXTERNAL LOOP CONNECTOR 


MUST BE ATTACHED TO THE LINE ADAPTER(S) EITHER AT THE 


LINE ADAPTER CONNECTOR OF THE END OF THE CABLE. THE REQUIRED 


EXTERNAL LOOP CONNECTOR AND INSTRUCTIONS FOR ITS USE ARE 
DESCRIBED IN EACH LINE ADAPTER*S PRODUCT MANUAL, 


CLOCK 
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000242 
000243 
000244 
000245 
000 246 
000247 
000248 
000249 
000250 
000 251 
000252 
000253 
000254 
N00255 
000 256 
000257 
000258 
000259 
000 260 
000261 
000262 
000263 
000264 
00265 
000266 
000267 
000268 
100269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000 287 
000288 
000289 
000290 
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TO TEST A DIRECT CONNECT LINKs FUNCTION "D”" MUST BE ENTERED 
ON THE SYSTEM THAT SUPPLIES THE CLOCK FOR THE LINK. PRIOR TO THAT 
TIME, "“L™ MUST BE ENTERED ON THE OTHER SYSTEM, 


"M" MODE OF OPERATION IS DESIGNED TO WORK CORRECTLY WITH 
PARADYNE LSI 96 MODEMS. THESE MODEMS MUST HAVE STRUPS C & D INSERTED 


PRIOR TO EXECUTING THIS TESTs THE LOCAL OR REMOTE MODEM MUST BE 
PLACED INTO LOOPBACK MODE, 


IF THERE IS NO CONSOLE PRESENT REFER TO "SERIES 60 
LEVEL 6 MODEL 34/36 T & V OPERATING INSTRUCTION 

MANUAL” ORDER NOw FL39 FOR INSTRUCTLONS ON ENTERING DATA 
AND INTERPRETING PROGRAM MESSAGES. 


THE PROGRAM WILL RUN APPROXOMATELY 1 MINUTE PER ASYNCHRONOUS LINE AND 
30 SECONDS PER SYNCHRONOUS LINE. 


DURING THE LINE SPEED TEST THE PROGRAM WILL PRINT OUT THE SPEED AT WHICH 
THE SYNCHRONOUS LINECS) ARE TESTED AT WITHIN 3% OF THE ACTUAL SPEED. 
ASYNCHRONOUS LINECS) ARE TESTED AT ALL SELECTABLE BAUD RATES. 
IF THERE ARE NO FAULTS. IT WILL THEN DISPLAY: 
PASS 

THE PROGRAM WILL CONTINUE AND TYPE “PASS" WITH NO HALTS BETWEEN PASSES. 
TO RESTARTS: START THE PROGRAM AT HEX 100 

ERROR REPORTS 


ERRORS WILL CAUSE THE PROGRAM TO HALT. AN ERROR MESSAGE WILL 
BE DISPLAYED IF A CONSOLE IS PRESENT. 


ERROR DISPLAYS ARE AS FOLLOWS3 
ERR XXYP @ 2222 


Bf B6 85 B& B83 B2 81 I 
R7 RO RS RG&E RE RA RI M 


XX = MBC(MOTHER BOARD) OR DBCDAUGHTER BOARD) 
Y = TEST TYPE 

P = LINE NUMBER 

ZZ2ZZ = ERROR LOCATION IN LISTING. HAS COMMENT 


GIVING FAILING FUNTION. 


aoe 

Oy 

7 ‘yl 
a 
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eee cco291 * B1-B7, I» RI-R7s M ARE CONTENTS OF REGISTERS. 
@ 000292 * INTERPERTATION OF THESE IS FOR SPECIALIST USAGE. 

ee N00293 * 
a 000294 * IN ALL CASES: 

000295 * 

000296 tk R3 = CHANNEL NUMBER 

000297 * , 

000298 * IN GENERAL 

000299 * 

000300 * R6 = SHOULD BE DATA 

000301 * RS = ACTUAL DATA 

000302 * R7 = WORD NUMBER IN BLOCK TRANSFER 

000303 * 

000304 

000305 WK K KKK KK KK KK KKK KKK KK KKK KKK KKK ERK KKK KKK KKK KEKE KRKARAKEKAKRAKRKEKEAS 


TITLE DCMVA 


000306 
000307 
000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 
000320 
000321 


000322 
000323 
000324 


000325 
000326 
000327 
000328 
000329 
000330 
000331 


000332 


000333 . 


000334 


000335 
000336 
000337 
000338 


OOFF 
OOFF 


0100 


0105 


0105 
0107 
0109 
0108 


‘010C 


O10E 
0110 
0111 
0112 
0114 


0115 


0116 
0117 
0118 


0119 
0118 
011D 
O1V1E 


O11F 
0121 
0123 
0124 


0125 


0000 


0000 


0100 
OF 8C 


FBFO 
D380 
8700 
OF 87 


FBCO 
D380 
OF 80 
1349 
8980 
O9AC 


8C 51 
8201 
2000 
050D 


FBCO 
0380 
OF 80 
T37E 


FBCO 
D380 
OF 80 
115F 


8756 


0001 
0000 
0000 


0003 
0000 


115D 


0003 
0000 


0003 
0000 
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ZERO 


STP 


CP40 


EQU $ 

XLOC ZHNTSAs/ZHTH15,Z2V$HR 
XLOC ZHISAZ s+ ZHIAFB 

XLOC ZHWDTC/ZHRTCCsZVSTTY 
XLOC ZHRTCIsZHRTCL 

XLOC ZHPFR»ZHCOMM 

ORG ZERO+X*FF® 


HLT NO ERROR FOUND IN MLCC 


OPERATOR MUST ENTER CLA ADDRESS 


EQU $ 

B >STP BRANCH TO NORMAL RUN 

ORG ZERO+X' 105° 

CALL ZV$RD.ZVSI12 INITIALIZE FOR NON-CONSOLE USE 
CL <ZVSTTY CLEAR CONSOLE CHANNEL 

B P>NTYR 


CALL ZV$RD/MESG 


CMZ <FWEFG 
BNE >EOLINT 


ASK FOR POWER LINE FREQ, 


STS =$R1 ASK ONLY ON 6/36 AND 3/34 
LB =$R1,=Z2'2000° 
BBT >CP40 


CALL ZVSQCsMESGI 


CALL ZVSIDsHRTZ \. 


~ FIND NUMBER OF MILSEC. IN RTC TICK 


CL =$R6 


‘ lee dae dad EE SN eke eke ns inne ah ee eb EE een te nt Frit aaue tReet ts each or ed Sie Re EP RR MOLE Ss NA PAI 
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000339 0126 F870 C350 LDR $R7,=2'C350' 
000340 0128 F300 115F DIV SR7e<HRTZ 
000341 012A EFOO 1168 STR $R6e<TLOC 
000342 012cC 8756 CL =$R6 
000343 012d F370 0064 DIV $R74=100 
000344 012F FFOO 1157 STR SR74<D1IV1 
000345 0131 7000 DOR BR7 416 
000346 0132 F370 QOOA DIV $R74=10 
000347 0134 FFOO 1158 STR SR7e<DIV2 
000348 0136 EFOO 1159 STR SROe<DIV3 
000349 0138 8756 CL =$R6 
000350 0139 F800 1168 LDR SR7e<TLOC 
000351 0138 7FOA MLV $R74=10 
000352 013C F300 115F DIV SR7e<HRTZ 
000353 O13€ FFOO 115A STR SR74<DIVG 
000354 * . 
000355 * 
N00356 * 
000357 * 
000358 k INITIALIZE THE ACTIVE LINE TABLE 
000359 * INITIALIZE THE LINE ADDRESS TABLE 
000360 * 
000361 EDLINT CALL ZVSF P/ATLT*+CPFLG+36C16 
0140 FBCO 0003 
0142 0380 0000 x 
0144 OFB80 
0145 11¢8 
0146 110DF 
0147 12A5 
000362 0148 FEOO 114 F SWR SR7 4<CHANL 
000363 CALL ZV$QC/MESG7 
014A FBCO 0003 
014¢ 0380 0000 x 
014E OF80 
O14F 1373 
000 364 CALL ZVSIHsAADDRS C8 
0750 FBCO 0003 
0152 0380 0000 X 
, 0154 OF80 
ie <8 0155 1103 
( 0156 1244 
—— 000365 0157 8752 CL =$R2 CLEAR INDEX 
000366 0158 AB80 1103 LAB $B2/<ADDRS LOAD $B2 WITH ADDRESS OF ACTIVE LINE TABLE 
000367 O15A CB80 12A8 LAB $B4e<TSA1 SET UP FOR TRAP ON 
000368 015C CF8O 0000 x STB $B45<ZHNTSA UNAVAILIABLE RESOURCE 
000369 O15E CB80 0192 LAB $B45<NODEVF 
000370 0160 cF8od c000 X STB $B44<2HTH15 


000371 0162 986E SALT LDR $R1¢$82,+3R2 LOAD ADDRESS FROM TABLE 
000372 0163 1931 BEZ $R1,>CON3. ) | 


7010714 Sil aieemaontak dade ben blab to lntthete saint = 


TITLE DCMVA 


000373 
000374 
000375 
000376 
000377 
000378 


000379 
000380 
000381 
000 382 
000383 
900 384 
000385 
000386 
000387 
000388 
000389 
000390 
000391 


000392 
000393 
000394 
000395 


000396 
000397 
000398 
000399 
000400 


000401 | 


000402 
900403 
000404 
000405 
000406 
000407 
900408 
000409 
000410 
000411 
000412 


0164 
0166 
0168 
0169 
016A 
0168 
0176C 
0160 
0176E 
0170 
0172 
0173 
0174 
0176 
0177 
0179 
0178 
017D 


O17F 


0181 


0183 
0184 
0185 
0186 
0188 


O18A 
018C 
078E 
018F 
0190 


0192 
0193 


0194 
0195 
0197 
0199 
019A 
0198 
019C 


8751 
AB 80 


-9B80 


2C F6 
C85E 
1D09 
0910 


FFCO 
03c0 


FFOO 
2100 


O3c0. 


11¢8 
FCOO 
114F 
0162 


0003 
0000 


11D3 
1168 


0003 
0000 


0140 


11¢8 
11C€4 
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RCK1 ADV 


DEVNF 


PORS STR 


RTT 


ON3 CL 
LAB 
LAB 


CAR LDV 


RON LDR 
CMV 
BE 
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S$R1,=Z2*FFCO! 
SRI» =xX°3CO* 
>RCK1 

>DEVNF 
SR14=X* 26! 
=$R5=5R1 


SR4,=5R5 


$R5,=2'F FOO? 
$R542=2'2100? 
>DEVNF 
$R3,=H$R1 
$R3e=X*3CO0'*. 
$R347 

BERG eo<ATLTLISR3 
$R1,=2'FCOO! 
S$R1e<CHANL 
<SALT 


ZVSTCPERMG1 


=$R2 

SRI s+ <ADORS. SR2 
SRI <TLOC 
ZVS$TH-TLOC 


<EDLINT 


=$R5 


=ERij 
$B2,<ATLT 
$B14<BITO 
$R2e=-10 
$R44$B2.+5R1 
$R14=9 
>CON3A 


PAGE 0010 


STRIP CHANNEL WITH HEX FFCO 
COMPARE CHANNEL WITH HEX 3C€0 
BRANCH IF GREATER 

CHANNEL NUMBER TO SMALL 

PUT FUNCTION IN 

INPUT DEVICE NUMBER 


COMPARE DEVICE NUMBER RESPONSE 
SET $R3 FOR INDEX OF LINE NUMBER 


STORE’ ID INTO ACTIVE LINE TABLE 


MLCC NOT FOUND ON THIS ADDRESS 


STORE ADDRESS THAT FAILED 


PRINT ADDRESS THAT FAIL 


TRAP HANDLER ROUTINE 


CHECK TO SEE IF THIS IS A CLA I CAN TEST 


CLEAR INDEX 


TITLE OCMVA 


000413 


000414 


000415 
0004176 
000417 


000418 
000419 
000420 
000421 
000422 
000423 
000424 
000425 
000426 
000427 
000428 
000429 
000430 
000431 
000432 
000433 
000434 
000435 
0004 36 
000437 
000438 
000439 


000440 


000441 
000442 
000443 
000444 
000445 
000446 
000447 
000448 


000449 


0190 
O19E 
O19F 
01A0 


O1A1 
01A3 
O1A5 
O1A6 
O1A7 
01A8 
O1A9 
01 AB 


O1AC 
O1AD 
O1AF 
0181 
0183 
0185 
0186 
0187 
0188 
0189 
0188 
018D 
01BF 


01¢0 
01¢1 

01¢3 
01715 
01¢6 


01C7 
01¢9 
01CB 


01¢CDd 
O1CF 
01D1 
01De2 


0103 
0105 
0107 
0108 


497D 
C921 
O97A 
27FE 


FBCO 
D380 
OF 80 
1388 
88 D1 
1007 
9400 
OF DD 


2C F4 
9800 
DB 80 
C870 
9570 
C525 
9454 
9F25 
e7F9 
8700 
8700 
F900 
091C 


3001 
C380 
E380 


0000 | 


0002 


87 80 
C800 
CF OO 


FBCO 
D380 
OF 80 
13A1 


FBCO 
D380 
OF 80 
1173 


0003 
0000 


114F 


11D3 
1149 
OO3F 
FCOO 


1165 
115E 
114F 


ODO0A 
O0D75 


1173 
1173 
1226 


0003 
0000 


0003 
0000 


07/28/78 
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CYN 


* 


CALL. 


$R4 eo >RON 
$R44$B1.5R2 


>CAR 


$R2e>CYN 
ZVSTC/AERMG2 


=$R1 
S$R107 


SRI o<CHANL 


>PORS 


$R2,=-12 
SRI «e <ADDRS 
$BSe<FID+1 
SR4,=X'3F! 
$R1/=2°FCOO* 
$R4,485.5R2 
S$R1-=5R4 
$R14$B5 .5R2 
$R2e>ALL 


<PSFG 
<HGSPD 


$R7 4 <CHANL 


> INVD 


PRINT FIRMWARE REV. 


$R341 


$B44<GENITZ 
$B6.<RDLCT 


0 
2 


<LCTV 


BR4e6<LCTV 
$R4<FRIMRV 
ZVSTCAFREV 


ZVSTDA-LCTYV 
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NUMBER OF I/0 TO BE CHANGED 


LOAD $R1 WITH ADDRESS OF CLA ACTIVE 
PUT ADDRESS OF CONTROL TABLE IN $B5 


LOAD MASK TO CLEAR CHANNEL 


CLEAR 
CLEAR 


SUBCH, & FUNCTION 
CHANNEL 


PUT CHANNEL NUMBER IN 


STORE 
CLEAR 


CLEAR 
CHECK 


SHIFT 


IT BACK IN CONTROL TABLE 


PRINT SYNC. SPEED FLAG 
HIGH SPEED FLAG 
TO ONLY PRINT ONCE 


$R3 TO ALIGN WITH CHANNEL NUMBER 


INITIALIZE CONTROLLER 


READ LOCATION 1 IN LCT TO PRINT REV. 


ADDRESS 


RANGE 


STORE 


FIRMWARE REV NUMBER 


TITLE DCMVA 


000450 
000451 
000452 
000453 
000454 


000455 


000456 
000457 
000458 
000459 


000460 . 


000461 
000462 
000463 
000464 
000465 
000466 


000467 | 


000468 
000469 
000470 
000471 
000472 
000473 


000474 


000475 
000476 
000477 
000478 
000479 


000480 


000481 
000482 
000483 
000484 
000485 
000486 
000487 
000488 


000489 - 


0109 


01D8 
01D0 
O1DF 


01€0 


0161 
O1€3 
O1ES 
O1E6 
O1E?7 
O01€8 
O1E9 
O01EB 
O1ED 


O1EE 


071F0 
O1F1 
O1F3 
O1F4 


O1F6 
O1F7 
O1F9 


O1FA 


O1FC 
O1FD 
O1FF 


0200 
0202 
0203 


0204 
0206 
0208 
O20A 
020C 
O20E 


8A 80 


FBCO 
0380 
OF 80 
1370 


FBCO 
D380 
OF 80 
11 6D 
1168 
7€ 08 
D380 
C800 
40 48 


CFOO 


4053 
0900 
4043 
0900 


4040 
0900 
4044 
0900 
4D4C 
0900 
4050 


0900 
4041 
09 D8 


8700 
8700 
C870 
CFOO 
A380 
A380 


1150 


0003 
0000 


0003 
0000 


0063 
1168 


1149 


0254 


0265 


0265 
0265 


0228 
0222 


1152 
116F 
C714 
1204 
O2A6 
O34A 
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INVD 


*HH 
* # 


+H 
* HH 


* HH 
«Hl 


*HH 


RTST 


INC <FWEFG 


HRS ASSEMBLER 5.05 


PAGE 


0012 


SET FLAG TO INHIBIT PRINT OUT 


ASK WHAT MODE OF OPERATION 


CALL ZVSQCeMESGO 
CALL ZVSIAsTP2eTLOC 
LDV $R7 428 

LNJ $B5e<TOLAY 
LOR SR4e<TLOC 
SOR R468. 

STR SR4e<TEST 
CMV SR4e=X'53! 
BE <SHTST 

CMV SR4e=X'43! 
BE <CABLP 

CMV SRG e=X'GD! 
BE <CABLP 

CMV SR4eX*44" 
BE <CABLP 

CMV SR4eX'4C! 
BE <LOOPBK 

CMV SR4e=X'50! 
BE <PCH 

CMV -$ER4e,EX"41? 
BNE >INVD 

Ck + <COUNT 

CE - <SHORT 

LDR $R4,=2'C714° 
STR $R4Ge<LCITLCR 
LNJ $B2e<LPTA 


LNJ $B2e<SPSYTC 


DELAY FOR MLC CONSOLE 


SHIFT MODE 


TYPE ANSWER OVER 


SAVE COMMAND CODE 


IF *S* DO 


IF *c* DO 


IF *M* DO 
IF *D* DO 
ae a 


IF "P* GO 


IF *A* DO 


STORE LINE 


TEST AS 
TEST Bs: 


SHORT TEST ONLY 


CABLE LOOP TEST ONLY 


MODEM LOOPBACK TEST 


DIRRECT CONNECT LOOP TEST 


EXECUTE ECHO BACK CCP 


TO PATCH ROUTINE 


INTERNAL LOOP TEST ONLY 


CONTROL FOR INTERNAL LOOP 


GO TO LOOP TEST 
GO TO LINE SPEED TEST 


TITLE OCMVA 


900490 
000491 
000492 
000493 
000494 
000495 
000496 
000497 
900498 
000499 
000500 


000501 
000502 
900503 
000504 


000505 
000506 
000507 
000508 
000509 
000510 
000511 
000512 
000513 


000514 
000515 
000516 
000517 
000518 


000519 
000520 
900521 
000522 
000523 
000524 
000525 
000526 
000527 


0210 
0212 
0214 
0216 
0218 
O21A 
O21C 
O21E 
0220 


O222 
0224 
0226 


0228 
O22A 
0228 
O22C 
O22E 
O22F 
0230 
0232 
0234 
0236 


0238 
O23A 
O23C 
0230 
O23E 
O23F 
0240 
0241 
0243 
0244 
0246 
0248 
O24A 
0248 
O24C 
O24E 


O24F 
0251 
0252 


A380 
A380 
A380 
A380 
A380 
A380 
A380 
A380 
OF 80 


FB FO 
D380 
OF 80 


8 FOO 


0112. 


8753 
D380 
11 BD 
OFA3 
C380 
C570 
C470 
CFOO 


FBCO 
D380 
OF 80 
110F 
1133 
12A6 
17151 
D380 
1134 
C800 
C380 
8000 
0054 
0703 
F380 
0000 


D380 
OF FD 
F380 


O4A7 
O4E4S 
OSF8 
067C 
0705 
0796 
0891 
OE 04 
0208 


0001 
0000 
01D8 


119A 


OD4F 


ODOA 
FF8&O 
0040 
1151 


0003 
0000 


0038 
113F 


0095 
145 


ODBA 


0000 


ODBA 
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PCH 


x AH 
*# 
LOOPBK 


LOOPB1 


LOOPER 
*#H 
*HH 


LNJ 
DC 
LDR 
LNJ 
10 


BIOT 
LNJ 
HLT 
XLOC 
LNJ 
B 
LNJ 
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$B2e<ADRTST 
$B2/<CRPTB 
$B2e<CHSZTO 
$B2e<STBITE 
$B2 6<PARERF 
$B2<ST10G 
$B2e<UORNTH 
$B2e<EDPCK 
<RTST 


ZVSPCH 


<INVD 


<SAV3-=Z'O112' 


=$R3 
$B5<FLN 
<SYNC 
>LOOPER 
$B44<GENITZ 


$R4,=Z2°F FBO" 


$R4,=X'40!' 
SR44<CHNZ 
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TEST Cz GO TO BART AND BARF TEST 

TEST Ds GO TO CRC AND PARITY TEST 

TEST Es GO TO CHARACTER SIZE TEST 

TEST Fs GO TO STOP BIT TEST 

TEST Gs GO TO PARITY ERROR TEST 

TEST Hs GO TO STOP I/0 TEST 

TEST Js GO TO OVERRUN AND UNDERRUN TEST 


EXECUTE ECHO BACK CCP 


FIND LINE 


NO SYNC LINE RETURN 
GENERAL INITIALIZATION 
$R4 < CHANNEL NUMBER 
OR IN DIRECTION BIT 


ZVSMLWeLOPCCPeLOPSZEsHX200-CHNZ LOAD CCP INTO MLCP 


$B5/<SETLCT 
<LOPLCT 
ER4e<FOCC 
$B44<CGSCH 
<BIT1,=5R4 


>LOOPBI 
$B74<ERMB 


STRTD2 
$B54<STRTD2 
>LOOPB1 
$B7.4<ERMB 


SET UP LCT'S 


START I/0 ON RECEIVE CHANNEL 


ERROR: 1/0 WAS NAK’*D 


START GOLOMP 


ERRORs NOT SYNC LINE 


TITLE DCMVA 


000528 
000529 
000530 
000531 
000532 
000533 
000534 
000535 
000536 
000537 
000538 
C00539 
000540 
000541 
000542 
000543 


000544 


000545 
000546 
000547 


000548 


000549 
000550 
000551 
000552 
000553 
000554 
000555 
000556 
000557 
000558 
000559 
000560 
000561 
000562 
000563 
000564 
000565 
000566 
000567 


000568 — 


000569 
000570 
000571 


0254 
0256 
0258 
O25A 
O025¢ 
O25E 
0260 
0262 
0264 


0265 
0267 


0269 
O26A 


O26C - 


O26E 
0270 


0272 
0274 
0275 
0277 
0279 
0278 
0270 


O27E 
0280 


0282 ° 


0284 


0285 
0287 
0288 


0289 
0288 
028D 
O28E 
O28F 


C870 
CFOO0 
Cc FOO 
A380 
A380 
A380 
A380 
A380 
OF FO 


8700 
8700 


4 
4C 

cFOO 
8700 
€870 
CF OO 


A380 
4C 32 
CF OO 
A380 
88 80 
89 80 
O9FA 


A380 
88 80 
89 80 


O9 EA. 


C800 
404D 
0998 


FBCO 
D3 80 
OF 80 
114A 
13 0C 


C714 
1204 
116F 
O2A6 
O34A 
O4E4 
0705 
OE04 


114A 
1148 


1152 
116F 
C314 
12D4 


0956 


114C€ 
02A6 
114C 
114C 


OAC 
1152 
1152 


17149 


0003 
0000 
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SHTST 


«HH 
*# 
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$R4e=2°C714' 
SR45e<LCILCR 


SR46<SHORT SET FLAG 

$B2e<LPTA TEST As GO TO LOOP TEST 

$B26<SPSYTC TEST Bs LINE SPEED TEST TO SET HIGH SPEED FLA 
$B2e<CRPTB TEST Ds CRC AND PARITY TEST 

$B2e<PARERF TEST Gs PARITY ERROR TEST 

$B26<EDPCK PRINT PASS MESSAGE 

>SHT ST 

<MLXCT CLEAR MODEM LOOPBACK XMIT CTRS 

<MLECT 


SR4 eR 
$R46<COUNT om 
<SHORT 
$R4,=2°'C314° 
$R4e<LCILCR 


$B24<LPCBLK 
$R4450 —— | 
$R4e<COUNT1 
$B2e<LPTA 
<COUNT1 — 
<COUNT1 — 
>RTST3 


TEST Ke 


TEST Az 


$B26<XMMSL - 
<COUNT — 


TEST Ls 


<COUNTaO" 


>RTST1 


$R4e<TEST 
$R4,X'40D' 
>RTST2 

ZVSTHIZVSTOoMLXCT»~MLCTRL PRINT ERROR SUMMARY 


STORE LINE CONTROL FOR INTERNAL LOOP 


GO TO LOOP OSS IN DSC 


GO TO LOOP DATA TEST 


BRANCH IF NOT MODEM LOOPBACK TEST 


a 


STORE LINE CONTROL FOR CONNECTOR LOOP 


co, 


GO TO XMIT MARK & SPACE TEST 
Seer ecenmmeenitimatiberestenssenaee is rnin Ann DOYS ra Sn 


r™ 


WW 


TITLE DOCMVA 


000572 


000573 


000574 


000575 
000576 
000577 
000578 
000579 
000580 
000581 
000582 
000583 
000584 
900585 
000586 
000587 
000588 
900589 
000590 
000591 
000592 
900593 
N00594 
000595 
000596 
000597 
000598 
000599 
000600 
00601 
000602 
000603 
000604 
000605 
000606 
000607 
000608 


O2BE 
O2cO 


FBCO 
03 80 
OF 80 
13CB 


FBCO 
D380 
OF 80 
1148 


FBCO 
D380 
OF 80 
1308 
OF CS 


A380 
OFCO 


C870 
C FOO 
C&79 
cF OO 
B3 80 
8700 
8700 
7C C6 


9B 80 
B3 80 
OF &5 
1310 
12CF 
00 3F 
ELES 


98 80 
B3 80 


0003 
0000 


0003 
0000 


0003 
0000 


OE04 


4120 
13A9 
OF18 
1203 
OBA6 
1160 
1205 


11BA 
OA8C 


118B 
OA8C 


1733.9 edt Fri 


CALL 


CALL 


CALL 


*# 
«HH 


we RTST2 = LNS 


B 


* 
* 
* 
* 
L 


+ + & F 


T1 LAB 
TIA LNJ 
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ZV$ST»MLMSG1 


ZVSTHLZVSTD»-MLECT 


ZV$T/MLMSG2 eo ee re 


>? CABLP sa D-«< L. c or CRAY A & fawn? 

$B2e<EDPCK . 

>CABLP (4 RoW Pro 4 Deka 
DATA LOOP TEST 

$R4,=A°A * 

R46 <ERMG+1 

$R44=X°F18° STORE FAST LINE SPEED 

$R4e<LCT1S 

$B34<CLFG CLEAR ALL TEST FLAGS 

<MASK SET MASK FOR ZVSC tt 

<LCISYF hk 

$R7 oe =6 NUMBER OF 30 MS DELAY oO 


CLEAR SYNC. FLAG FOR ASYNC. LINES ,. | | 
_ . i 
\ 


TEST ASYNCHRONOUS LINES WITH OLD BAUD RATES | 
AT 9600 BAUD» WITH 2 STOP BITS 


jer 
$Bis<ASYN STORE ADDRESS OF LINE TYPE ae eee 
$B34<DTALOP GO TO LOOP SUB-ROUTINE 

>T1 

<WwCP 1 ADDRESS TABLE FOR BLOCK WRITE 

<LCT1 LCT TABLE 

CDFLT-DOUT) RANGE IN WORDS 

<DOUT TRANSMIT BUFFER 


TEST ASYNCHRONOUS LINES WITH NEW BAUD RATES 
AT 19200 BAUDs WITH 2 STOP BITS 


~$B1,<ASYNI 
$83-<DTALOP 


LINE TYPE 


TITLE DCMVA ~ 07/28/78 1733.9 edt Fri HRS ASSEMBLER 5.05 PAGE 0016 


000609 O2c2 OF85 B >T2AA 

000610 02c3 131D DC <WwCP1 

000611 O2C4 12CF DC <LCT1 

000612 O02C5 OO3F DC (OFLT-DOUT) RANGE IN WORDS 

000613 O2C6 11€3 DC <DOUT TRANSMIT BUFFER ADDRESS 

000614 * 

000615 * TEST CURRENT LOOP ASYNCHRONOUS 

000616 * 

000617 O2C7 8980 1152 T2AA CMZ <COUNT IF CONNECTOR LOOP 

000618 02C9 0900 O2cF BE <T2 CHANGE SPEED TO TEST AT 9600 BAUD 

000619 O2C8 C870 0EF18 LOR $R45=X'E18° 

000620 O2Cd cFOO 1203 STR $SR46<LCT1S 

000621 O2CF C871 T2 LDR $R444+5B1 LOAD ID TYPE INTO $R4 

000622 0200 c900 11BC CMR SR45<ASYNC CHECK TO SEE IF ALREADY DONE 

000623 Q02D2 0902 . BE >T2A . 

000624 0203 OFED B >T1A 

000625 . 0204 T2A EQU $ 

000626 0204 8980 116F _CMZ <SHORT 

000627 02d6 0980 BNE >NCBL 

000628 O02D7 C¢870 0118 LDR SRG yp =X*1188 CHANGE BAUD RATE TO 50 

000629 0209 cFOO 12D? STR $R44<LCTIS 

000630 .02DB8 7C€78 LOV $R74=120 NUMBER OF 30 MS DELAY FOR DATA TRANSFER 
000631 * 

000632 * TEST ASYNCHRONOUS LINES WITH OLD BAUD RATES 

000633 * AT 50 BAUDs WITH 2 STOP BITS 

000634 k 

000635 O2DC 9880 11BA LAB $B1e<ASYN LOAD LINE TYPE . 

000636 O2DE 8380 OA8C LNJ $B3%2<DTALOP LOOP TEST SUB-ROUTINE 

000637 O2EO OF8S5 B >T3 

000638 O2E1 1310 DC <WCP1 ADDRESS TABLE FOR BLOCK WRITE 

000639 O2E2 12CF oC <LCT1 LCT TABLE 

000640 O02€3 0007 DC . 7 RANGE IN WORDS 

000641 O2E4 11F3 nye <po0uT1 

000642 * | 

000643 * TEST ASYNCHRONOUS LINES WITH NEW BAUD RATE 

000644 * AT 50 BAUD» WITH 2 STOP BITS 

000645 * 

000646 O2E5 C870 0018 T3 LDR $R4e=X'18! 

000647 O2E7 CFOO 1203 STR $R4e<LCT1S : a 

000648 0269 9880 11BB LAB $B1+<ASYN1 LOAD LINE TYPE 

000649 O2E€B 8380 OA8C T3A LNJ $B34<DTALOP LOOP SUB-ROUTINE. a 

000650 O2ED OF85 B >T4 ore 

000651 O2EE 1310 DC <WCP1 

000652 O2EF 12CF DC <uLcT1 

000653 O2F0 0007 DC 7 

000654 O2F1 11F3 DC <DOUTI 

000655 * . 

000656 * TEST CURRENT LOOP ASYNCHRONOUS 

000657 * 


ae teats Abate nate 


TITLE DCMVA 


000658 


000659 
000660 
000661 
000662 
000663 
000664 


000665. 


000666 
000667 
000668 
000669 
000670 
000671 
000672 
000673 
CO0674 
000675 
000676 
000677 
000678 
000679 
00680 
000681 
000682 
000683 
000 684 
000685 
000686 
000687 
000688 
000689 
000690 
000691 
000692 
000693 
000694 
000695 
100696 
000697 
00698 
000699 
000700 
000701 
000702 
000703 
000704 
000705 


O2Fe 
O2F3 
O2F5 
O2F6 


O2F7 
O2F9 
O2FA 
O2FB 


O2FC 
O2FE 
O2FF 
0301 


0302 
0304 
0306 
0308 
O30A 
030C 
O30E 


O30F 
0311 
0312 
0313 
0314 
0315 


0316 
0318 
O31A 
0318 
O31C¢ 
0310 
O31E 


O31F 


C871 
c900 


09 02° 


OFFS 
O2F7 
C800 
8204 
0400 
0508 


C800 
4040 
C870 
0903 


C870 
CFOO 
C870 
cFOO 
C870 
cFOO 
7C 2D 


C800 
4044 
0903 
4D4D 
09 82 
7C 04 
0316 


9B 80 
B3 80 
OF 85 
13.10 
12:CF 
00 2F 
11F3 


C871 


11BC 


1204 


1149 


C314 


CB14 
1204 
3A18 
1203 
O21C 
1205 


1149 


11BD 
OA8C 
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T4 


T4A 


«HH 
*# 


*# 
«HH 


NCBL1 
NCBL 


«HH 
«H 


LDR 
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$R44+3B1 
SR446<ASYNC 
>T4A 

>T3A 

$ 
SR46<LC1LCR 


=$R4,=2'°0400° 


>NCBL 


$R46<TEST 
SR4eX°4D* 
$R44=2°C314" 
>NCBL1 


$R442=72'CB14' 
$R4,<LCILCR 
$R44=X'3A18' 
$R4,<LCT1S 
$R4e =X! 21c' 
$R44<LCISYF 
S$R74=45 


$R4e<TEST 
$R4,X"44° 
>NCBL2 
$R4,X'4D! 
>NCBL3 
S$R74=4 

$ 


TEST SYNCHRONOUS (3A AS SYNC. 


$B1e<SYNC 
$B34<DTALOP 
>T5 

<wCP 14 

<LCT1 
CDFLT-DOUT1) 
<DOUT1 


TEST BI-SYNCHRONOUS LINES 


$R4,+$B1 
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LOAD ID TYPE INTO SR4 
CHECK TO SEE IF ALREADY DONE 


CHECK LINE CONTROL FOR CONNECTOR LOOP 
IF CONNECTOR LOOP SET DIRECT CONNECT BIT 


DON’T SET DIRECT CONNECT IF MODEM LOOP 


PUT IN SYNC. CHARACTER TO TEST 
SYNC. LINE TYPES 
SET LCT SYNC. FLAG 


NUMBER OF 30 MS DELAY FOR 800 BAUD 


REDUCE DELAY IF *D* OR *M* TEST 


CHAR.) 


LOAD LINE TYPE 
LOOP SUB-ROUTINE 


(3A AS SYNC. CHAR.) 


LOAD ID TYPE INTO $R4 
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000706 0320 ¢900 11BE CMR $R46<BISYNC CHECK TO SEE IF ALREADY DONE 
000707 0322 0902 BE >T6 : 

000708 0323 OFFS B. >QA1 

900709 7 x 

000710 * TEST MIL 188 SYNCHRONOUS (3A AS SYNC. CHAR.) 

000711 * 

000712 0324 9880 11BF T6 LAB $B1-<SYN188 LOAD LINE TYPE 

000713 0326 8B380 OA8C LNJ $834<DTALOP LOOP SUB=ROUTINE 

000714 0328 OF 8&5 B >T7 

000715 0329 131D . DC <WCP 1 

000716 O32A 12CF DC <LCT1 

000717 O328 OO2F DC (DFLT-DOUT1) 

000718 O32C 11F3 DC <DOUTI 

000719 * 

000720 * 

000721 * TEST WIDEBAND 301/303 (3A AS SYNC. CHARACTER) 

000722 * 

000723 032d 9880 11CO T7 LAB _ $B1,<WwdB3 LOAD ADDRESS OF LINE TYPE 

000724 0O32F 8380 OABC T7A LNJ $B34<DTALOP | LOOP SUB-ROUTINE 

000725 0331 OF85 B >T29A 

000726 0332 131D DC <WCP 1 

000727 0333 12CF DC <LCT1 . 
000728 0334 O0O3F DC (DFLT=DOUT) 

000729 0335 1163 DC <DOUT 

000730 * 

000731 * TEST BI-SYNC WIDEBAND 301/303 (3A AS SYNC. CHARACTER) 
000732 *. . . 

000733 0336 C871 — T29A LDR $R4,+$B1 LOAD ID TYPE INTO $R4 

000734 0337 c900 11¢1 CMR $R4,<WDB38 CHECK TO SEE IF ALREADY DONE 
000735 0339 0902 BE >T29 

000736 O33A OFFS B >T7A 

000737 * 

000738 * TEST WIDEBAND V35 (3A AS SYNC. CHAR.) 

000739 : * 

000740 0338 9880 11C2 T29 LAB $B16<WDBV35 LOAD ADDRESS OF LINE TYPE 

000741 033d 8380 OA8C T292 LNJ $B3,<DTALOP 

000742 O33F OF85S 8 >T30A 

000743 0340 131D DC .- <weP1 

000744 0341 12CF DC <LCT1 

000745 0342 O0O3F DC (DFLT-DOUT) | of 
000746 0343 1163 DC <DOUT 
000747 * . UL 
000748 * TEST BI-SYNC WIDEBAND V35 (3A AS SYNC. CHARACTER) | 
000749 * 

000750 0344 C¢871 T30A LOR $R4,+$B81 LOAD ID TYPE INTO $R4 

000751 0345 ¢c900 11¢3 CMR SR44<WDBV5B CHECK TO SEE IF ALREADY DONE 
000752 0347 90902 BE >T30 

000753 0348 OFFS B >T292 


N00754 x 


Yew 


TITLE DCMVA 


000755 
000756 
000757 
000758 
000759 
0007690 
000761 
000762 
000763 
000764 
000765 
000766 
000767 
000768 
000769 
000770 
000771 
000772 
000773 
000774 
000775 
000776 
000777 
000778 
000779 
000780 
000781 
000782 
000783 
000784 
000785 
000786 
000787 
000788 
900789 
000790 
000791 
000792 
000793 
000794 
000795 
000796 
000797 
000798 
000799 
000800 
000801 
000802 
000803 


0349 


O34A 
O34C 
O34E 
0350 
035e 
0353 
0354 
0356 
0357 
0359 
0358 
O35C 
O35E 
0360 
0362 
0364 
0366 
0368 
0369 


0368 
036D 


O36F 
0371 


0373 
0375 
0376 
0377 
0379 
0378 


0370 
O37F 
0381 
0383 


0385 


83 82 


C870 
CFOO 
83 80 
C800 
4002 
4EF8 
CF OO 
4€10 
CF OO 
c800 
4GFOA 
CFOO 
CB80 
CF 80 
CB 80 
CF 80 
8E 70 
4€01 
CFOO 


C680 
CF 80 


CB 80 
CF 80 


89 80 
09 9E 
4C OA 
CFOO 
87 00 
8700 


C8 70 
9B 80 
EB 80 
B3 80 


4018 
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LINE SPEED TEST 


$R4e=A'B s 
$R46<ERMGt1 


$B34<CL 
$R46<HR 
SR4e2 

$R44=-8 
$R45<SE 
$R4-=16 
$R4/<SE 
ER4e<HR 
$R4,=10 


FG 


TZ 


CL 


CH 
TZ 


SR4e<FIVSEC 
$B4-<SPSYT1 
$B446<ISA4P 


$B44<IS 
$B4<ZH 


A4+S AF 
ISAZ +4* SAF 


=2'8004" 


$R4,=1 
$R44<Z2H 


RTCL 


$B4e<NOSPD 


$B844<I1S 


A1P 


$B4,<ISA1+S AF 


$B4,<2ZH 


<SHORT 
>STSP1 
$R4,2=10 


ISAZ+SAF 


$R44<CSB 


<LC3SYF 


<BYTP 
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JUMP OUT OF LOOP TEST 


CLEAR ALL TEST FLAGS 


CALCULATE THE LOW AND HIGH RANGE OF RTC TICKS 


CALCULATE NUMBER OF RTC TICKS IN 5 SEC. 


SET UP INTERRUPT VECTORS AND 
POINTERS TO CHANGE RUNNING LEVEL TO 4 


CHANGE RUNNING LEVEL TO 4 
SET RTC LEVEL TO 1 


SET RUPT POINTER FOR RTC INTERRUPT 


SET RUPT VECTOR FOR LEVEL 1 RUPT 


STORE CHAR. SIZE 


CLEAR SYNC. FLAG FOR ASYNC. LINES 


SET BYTE POSITION TO ZERO 


LINE SPEEDS FOR ASYCHRONOUS OLD BAUD RATE 


$R4 6 =X! 
$B16<AS 


118° 
YN 


$86-<OSPTBL 


$B34<SP 


DTLP 


SET $R4 WITH FIRST SPEED TO TEST CASYNC.) 
LOAD LINE TYPE 

LOAD ADDRESS OF CHAR. 
GO TO LINE SPEED TEST 


NUMBER TABLE 


LINE SPEEDS FOR ASYCHRONOUS NEW BAUD RATE 


$R4,=xX° 


18° 


SET SR4& WITH FIRST SPEED TO TEST CASYNC.) 


TITLE DCMVA 


000804 
000805 
000806 
000807 
000808 
000809 
000810 
000811 
000812 
000813 
000814 
000815 
000816 
000817 
000818 
000819 
000820 
000821 
000822 
000823 
000824 
000825 
000826 
000827 
000828 
000 829 
000830 
000831 
000832 
000833 


000834 . 


000835 
000836 
000837 
000838 
000839 
000840 
000841 
000842 
000843 
000844 
000845 
000846 
000847 
000848 
000 849 
000850 
000851 
000852 


0386 
0388 
O38A 


038C 


038D 
O38F 
0391 


0393 
0395 
0397 


0399 
0398 
039D 


O39F 
O3A1 
O3A3 
O3A4 
O3A6 
O3A8 
O3AA 


O3AB8 
O3AD 


O3AF 
0381 


0383 
0385 


0387 
0389 


9880 
EB 80 
B3 80 


4€18 
9880 
EB 80 
B380 


C870 
CF OO 
EB 80 


CB 80 
CF 80 
8A 80 


C870 
cFOO 
4€08 
CFOO 
C870 
8980 
09 8D 


9B 80 
B3 80 


9B 80 
B3 80 


9B 80 
B3 80 


9B 80 
B3 80 


1188 
1237 
O3CE 


118C 
1237 
O3CE 


OFOO 
1166 
1166 


0496 
12C4 


114E- 


021C 
12€5 


1154 
C118 
116F 


17BE 
O3CE 


11BD 
O3CE 


11B8F 
O3CE 


11¢0 
O3CE 
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STSP1 


LAB 
LAB 
LNJ 


TEST 


LOV 
LAB 
LAB 
LNJ 


LDR 
STR 
LAB 


LAB 
STB 
INC 


LDR 
STR 
LDV 
STR 
LDR 
CMZ 
BNE 


HRS ASSEMBLER 5.05 


$B8146<ASYN1 
$B6e<NSPTBL 
$B3e<SPDTLP 


LINE SPEEDS 


$R4=X'18!° 
$B16<ASYNC 
$B6e<NSPTBL 
$B346<SPDTLP 


$R44=3840 
S$R4e<RANGE 
$B62<RANGE 


$B44<IRRG 
$B4e<ISA1P 
<BYTP 


$R4-2=xX'21C° 
S$R44<LC3SYF 
BR4,=8 
$R44<CSB 


$R4,=2'C118! 
<SHORT 


>STSP2 


PAGE 0020 


LOAD LINE TYPE 


LOAD ADDRESS OF CHAR. NUMBER TABLE 


FOR ASYCHRONOUS CURRENT LOOP 


SET RANGE FOR SYNC. LINES 

LOAD ADDRESS OF RANGE FOR SPEED TEST SUB-ROUT 
SET RUPT POINTER FOR RTC INTERRUPT (SYNC.) 
SET BYTE POSITION TO ONE 

SET LCT SYNC. LINE FLAG 
SET CHAR. SIZE FOR SPEED CALCULATION 


LOAD $R4 WITH SYNC CHARACTER TO BE USED 


MEASURE AND PRINT LINE SPEED. FOR BI-SYCHRONOUS 


LAB 
LNJ 


$B12<BISYNC 
$B34<SPDTLP 


LOAD ADDRESS OF LINE TYPE 
GO TO LINE SPEED TEST 


MEASURE AND PRINT LINE SPEED FOR SYCHRONOUS 


LAB 
LNJ 


$614<SYNC 
$B34<SPOTLP 


LOAD ADDRESS OF LINE TYPE 
GO TO LINE SPEED TEST 


MEASURE AND PRINT LINE SPEED FOR MIL 188 


LAB 
LNJ 


$B1+<SYN188 
$B34<SPDTLP 


GO TO LINE SPEED TEST 


MEASURE AND PRINT LINE SPEED FOR WIDEBAND 301/303 


LAB 
LNJ 


$B1e<W0B3 
$B36<SPDTLP 


) 


MEASURE AND PRINT LINE SPEED FOR BI SYNC WIDEBAND 301/303 
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000853 0388 9880 11C1 LAB $81,<W0B3B 
000854 038d 8380 O3CE LNJ $B34<SPOTLP 
000855 | 
000856 * MEASURE AND PRINT LINE SPEED FOR WIDEBAND V35 
000857 * 
000858 O3BF 9880 11C2 LAB $B14<WOBV35 
000859 03C1 B380 O3CE LNJ $B3e<SPDTLP 
000860 * 
000861 * MEASURE AND PRINT LINE SPEED FOR BI-SYNC WIDEBAND YV35 
000862 * 
000863 03C€3 9880 11C€3 LAB $B14<WDBYV53 
000864 O3C€5 8380 O3CE LNJ $B34<SPDTLP 
000865 * 
000866 03C7 8A80 1165 INC <PSFG : SET FLAG TO INHIBIT PRINTOUT 
000867 CALL ZVERD RE-INITIALIZE INTERRUPT VECTOR AND POINTERS & 
03c9 FBFO 0001 
03c8 0380 Q000 X 
000868 * SET LEVEL TO ZERO 
000869 O3cD 8382 JMP $B2 JUMP OUT OF TEST 
000870 * 
000871 a a ee a a a ee a a | 
00872 * 
000873 * LINE SPEED LOOP 
000874 * 
000875 O3CE 8FOO 119A SPDTLP SAVE <SAV3,=2 '0810* SAVE REGS. 
0300 0810 
000876 0301 £8753 CL =$R3 * $R3 
000877 03D2 9F8O0 0306 STB $B1-<ST1 STORE LINE TYPE FOR FIND LINE ON’ 
000878 * 
000879 0304 0380 OD4F JPT3 LNJ $B54<FLN FIND LINE ON OF TYPE BELOW 
900880 0306 0000 ST1 RESV SAF 40 LINE TYPE FOUND AND STORED HERE 
000881 0307 8383 JMP $B3 NO MORE LINE THIS TYPE END TEST 
000882 * 
000883 0308 8751 CL =$R1 CLEAR $R1 
000884 0309 8752 CL =$R2 CLEAR INDEX ON NEW LINE 
000885 O3DA CFOO 12E3 NXSPD STR $R4e<LCET3S STORE LINE SPEED IN LCT TABLE 
000886 * 
000887 O030C c808 0306 NXSPD1 LDR BR4e%<ST1 
ae 000888 O3DE c900 118C CMR ER4e<ASYNC 
; , 000889 03E0 0983 BNE PNXSPD2 B IF NOT CURRENT LOOP ADAPT, 
000890 O3€1 C380 0C18 LNJ $B44<SCLS SET CURRENT LOOP ADAPTER SPEED 
000891 O3E3 C380 ODOA NXSPD2 LNJ $B4/<GENITZ GENERAL INITIALIZE 
000892 O3€5 82D4 LB =$R4,=X'80" SEE IF SECOND LINE OF CLA 
O3E6 0080 
000893 O3E7 05 83 BBF >STe IF SECOND LINEOF CLA 
000 894 O3E8 C380 0C11 LNJ $B446<STMD SET TEST MODE FOR THE BOARD 
000895 * . 
000896 O3EA CS70 FF&O ST2 AND $R4e=2'F FRO" - PREPARE TO WRITE CHANNEL PROG 


900897 O3€&C C470 0040 OR $R4,2=X*40° 


TITLE OCMVA 


000898 
000899 


000900 


000901 
000902 
000903 
000904 
000905 
000906 
000907 
000908 
000909 
000910 
000911 
000912 
000913 
000914 
000915 
000916 
000917 
000918 
000919 
000920 
000921 
000922 
000923 
000924 
000925 
000926 
000927 
000928 
000929 
000930 
000931 
000932 


O3€E 


O3F0 
O3F2 
O3F4 
O3FS 
O3F6 
O3F7 
O3F8 


O3F9 
O3FB 
O3FD 
O3FE 
O3FF 
0400 
0401 


0402. 


0404 


0405 
0406 
0407 
0409 
O40A 
0408 
040C 
O40E 
O4OF 
0411 
0413 
0415 
0417 
0418 
0419 
O41A 
0418 
O41¢ 


0410 
O41F 
0420 


0421 
0422 


CF OO 


FBCO 
D380 
OF 80 
OE 17 
131F 
12A6 
1151 


FBCO 
D3 80 
OF 80 
OE 2F 
1320 
12A7 
1151 


D380 
12 DF 


C826 
8AD3 
D380 
11E3 
0060 
88 D3 
4900 
CF55 
C970 
0A 80 
C870 
D380 
1¢00 
0040 
88D1 
D254 
DF 54 
OFFS 


D380 
1¢ 00 
0060 


7001 
8AD3 


1151 


0003 
0000 


0003 
0000 


0038 


O0D99 


O47A 


03c0 
0410 
03c0 
0099 


0D99 
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MLCCB 


+ + + 


STR 
CALL 


CALL 


LNJ 
DC 
DC 
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$R4e6<CHNZ 


PAGE 0022 


ZVSMLWse CHLP1,RAG1IsHX2006CHNZ 


ZVSMLWeCHLP TA RAG2eHX4006CHNZ 


$B5 2<SETLCT 
<LCT3 


$R46$B6.5R2 
=BR3 
$B854<MCCB 
<DOUT 

x*60* 

=$R3 
SR4o<TSNL 
S$R4e=5R5 
$R4e=X'3CO0* 
<SGCCB 
SR4,=X'3C0' 
$B54<MCCB 
<DIN 

x'40* 

=$R1 
SR5e=SR4 
SRS e=ER4 
>MLCCB 


$B5e<MCCB 
<DIN 
X*60' 


SEND OUT LCT TABLE 


LOAD $R4 WITH RANGE IN BYTES 


FORM CCB FOR XMIT 


CHANGE TO RECV. SIDE 


MAKE MULTIPLE CCB IF LARGE RANGE 


FORM CCB FO RECV. 


START I/0 XMIT FIRST THEN RECV. 


LOV 
INC 


$R74>=1 
=$R3 


CHANGE TO XMIT SIDE 
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| 900933 0423 C800 113F LOR SR4A<FOCC 
( 000934 0425 C380 0D95 LNJ $B4<CGSCH 
000935 0427 8000 11C5 10 <BIT1,=5R4 
0429 0054 
000936 042A 0703 BIOT  >MELCO1 
000937 0428 £380 ODBA LNJ $87<ERMB 
000938 042d D380 0063 MELCO1 LNJ $85 /<TDLAY 
000939 O42F 88Dd3 DEC =$R3 
000940 
000941 0430 8801 DEC =$R1 
000942 0431 C800 113F LDR BR40<FOCCE 
000943 0433 C380 0095 LNJ $B4,<CGSCH 
000944 0435 F800 1223 LDR $R7/<FIVSEC SYNC. UP CLOCK 
000945 0437 FFOO 0000 x STR SR7/<ZHRTCC STORE RICC WITH S SEC OF TICKS 
000946 0439 0004 RTCN TURN ON REAL TIME CLOCK 
000947 043A F900 0000 xX SYCT CMR SR72<ZHRTCC 
000948 043C O27E BL >SYCT 
000949 0430 8040 0087 10 BIT1,=$R4 START 1/0 
O43F 0054 
000950 0440 0703 BIOT  >JPT1 
000951 0441 £380 ODBA LNJ $B7,<ERMB ERROR: 1/0 WAS NAK*ED 
000952 0443 C380 0025 JPT1 LNJ $B4,<INXT INPUT NEXT STATUS 
000953 0445 C800 1144 LOR $R42<FIS LOOP ON INPUT STATUS UNTIL STATUS COMPLETE 
000954 0447 C380 0095 LNJ $B46<CGSCH 
000955 0449 8055 ST3L 10 ZS$R5-=$R4 INPUT STATUS 
044A 0054 
000956 0448 0703 BIOT >uPT2 
000957 044C F380 ODBA LNu $B7/<ERMB ERROR: 1/0 WAS NAK*‘ED 
000958 O44E 8205 JPT2. LB =$R5,=2'10008 SEE IF STATUS COMPLETE 
O44F 1000 
000959 0450 OSF9 BBF >ST3 LOOP UNTIL STATUS COMPLETE 
000960 0451 17F2 BINC $R1,>JPT1 LOOP TO FINAL CCB 
000961 t | 
000962 0452 0005 RTCF TURN OFF REAL TIME CLOCK 
000963 0453 C800 1223 LOR SR4Ge<FIVSEC CALCULATE ELAPSED TIME 
000964 0455 ¢200 0000 xX SUB $R46<ZHRTCC 
000965 0457 8755 CL =$R5 
000966 0458 8980 116 CMz <SBTFG CHECK FLAG FOR STOP BIT TIME TEST 
000967 045A 0980 06C6 BNE <SBTE | 
| 000968 “ 
| 000969 045C 8980 12E5 JPT4 = CM2 <LC3SYF SEE IF SYNC. OR ASYNC. LINE 
: 000970 O45€ O09A2 BNE >SYNSP 
000971 O45F C900 1224 CMR SR4/<SECL SEE IF NUMBER OF TICKS WITHIN 
000972 0461 O0A84 BALE  >TRYH ACCEPTABLE RANGE 
000973 0462 ¢900 1225 CMR $R4<SECH 
000974 0464 O080E BAL >TYXL 
000975 0465 F800 1158 TRYH LOR S$R7 4 KERF CLEAR ERROR FLAG TO 
000976 0467 8700 1158 CL <ERF SUPPRESS REGISTER DUMP 


000977 Q469 F380 ODC2 LNJ S$B7e<ERDB 
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000978 0468 C€380 OCA8 LNJ $B4e<PRILSP ERRORS INCORRECT LINE SPEED 


000979 046d FFOO 1158 STR $R7/<ERF 

000980 O46F 4COA LDV $R4,=10 

000981 0470 CFOO 1154 STR £$R4s5<CS8B 

000982 0472 B8AD2 TYXL INC =$R2 

000983 0473 c800 12E3 LDR $R4e<LCT3S . SET LCT TO NEXT SPEED 

000984 0475 CA70 0100 ADD $R4,=xX*100* CHANGE TO NEXT SPEED 

000985 0477 2D10 CMY $R24=16 SEE IF ALL SPEED TESTED 

900986 0478 0800 O3DA BAL <NXSPD BRANCH TO TEST NEXT SPEED 

000987 * 

000988 O47A 3€02 TSNL ADV $R3,=2 TEST NEXT LINE 

000989 0478 8F80 119A RSTR <SAV3,=2'0810° RESTORE REGS. 

047D 0810 

000990 O47E OF8D 0304 8 <JPT3 

000991 | 3 * 

000992 0480 8980 1165 SYNSP CMZ <PSFG 

000993 0482 0986 BNE >SYNSP1 

000994 0483 8980 116F CMZ <SHORT 

000995 0485 0983 BNE >SYNSP1 

000996 0486 C380 OCA8 LNJ $B4,/<PRTLSP PRINT SYNCHRONOUS LINE SPEED 

900997 0488 4C€08 . : SYNSP1 LOV $R4,=8 

000998 0489 cCFOO 1154 STR $R4,<CSB 

000999 0488 OFEF B >TSNL 

001000 * ° 

001001 * 

001002 * RTC INTERRUPT ROUTINE 

001003 * 

©-Q001004 O48¢C O005 NOSPD RTCF TURN OFF RTC 

901005 O48D 8700 1154 CL <CSB . 

001006 O48F 0880 045C LAB $B5e<JI PTS SET RUPT POINTER TO RETURN TO LEVEL 4 
001007 0491 DF80 12CA STB $BSe<ISA4P 

001008 0493 8E70 8004 ‘ LEV =27*8004° 

001009 0495 QFF7 . B >NOSPD 

001010 * 

001011 — * 

001012 teehee eee eee eee eeeeree eee ee ee ee eee eeeee tt 
- 001013 * SYNC. RTC INTERRUPT ROUTINE 

001014 * | 

001015 0496 Q005 IRRG RTCF TURN OFF RTC gO 

001016 0497 C380 OD28 LNJ S$B4e<INRG INPUT RANGE INTO $R5 i 

001017 0499 8AD1 INC =$R1 FORM TOTAL RESIDUAL RANGE Se 
001018 O49A 1904 BEZ SRI e>IRRG2 FROM OTHER CCB*S ——. 
001019 0498 0dA70 O3C0 IRRG1 ADD $R5-=X*3CO' 

001020 O049D 17FE BINC $RI->IRRG1 

001021 O49E€ C800 1223 IRRG2 LDR - S$R4e<FIVSEC PUT ELAPSED TIME IN $R4 

001022 O4A0 0DB8D 0480 LAB - $B56<SYNSP SET RUPT POINTER FOR RETURN TO LEVEL 4& 

001023 O4A2 ODF8O 12CA STB -$B54<I1SA4P 

001024 QO4A4 8£&70 8004 LEV =Z"°8004' 


901025 O4A6 OFFO B >IRRG 


i eee Ey 
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001026 * 
001027 ae he ee Neca eee as Ses ten Dee Boe oe ye Ree ee Pea eee Ree et er tck tes bee pee Tae! ie ee od 
001028 * 
001029 * TEST ADAPTER READY BIT FOR BROADBAND LINES 
001030 * 
001031 * 
001032 O4A?7 C870 4320 ADRTST LDR $R4,=A'C ! 
001033 O4A9 CFOO 13A9 STR $SR46<ERMGH1 
001034 04A8 B380 OBA6 LNJ $B34<CLFG CLEAR ALL TEST FLAGS 
001035 O4AD 8700 1313 CL <LCT8&FG 
001036 O4AF 8A80 1140 INC <ARFG SET ADAPTER READY TEST FLAG 
001037 0481 7C€20 LDV $R74=45 
001038 * 
001039 * TEST WIDEBAND 301/303 (C5 AS SYNC. CHARACTER) 
001040 * 
001041 0482 9B80 11C¢0 LAB $B1,<WDB3 LOAD ADDRESS OF LINE TYPE 
001042 0484 B380 OA8C T46Y LNJ $836<O0TALOP LOOP SUB<-ROUTINE 
001043 0486 OF8S B >T46A 
001044 0487 1333 DC <wCP6 
001045 0488 1308 oC <LCT8 
001046 0489 09O0CO DC 192 
001047 OQO4BA 11€3 dC <DOUT 
001048 * . 
001049 * TEST BI-SYNC. WIDEBAND 301/303 (C5 AS SYNC. CHAR.) 
001050 - oe 
001051 0488 C871 T46A LDR $R4o+$B1 LOAD ID TYPE INTO $R4 
001052 O48C C900 11C1 CMR $R46<WDB3B CHECK TO SEE IF ALREADY DONE 
001053 QO4BE 0902 BE >T46 
001054 O4BF OFFS B >T46Y 
001055 | * 
001056 * TEST WIDEBAND v35 (C5 AS SYNC. CHARACTER) 
001057 * 
001058 04C0 9880 11C2 T46 LAB $B14<WOBV3S5 LOAD ADDRESS OF LINE TYPE 
001059 04c¢2 8380 OA8C T462 LNJ $B3,<DTALOP 
001060 04¢C4 OF85 B >T47A 
001061 O04c¢€5 1333 )) 4" 08 =o) 
001062 04C6 1308 DC <LCT8 
001063 04¢7 OO0CO DC 192 
2 001064 04C8 11€3 DC <DOUT 
001065 * 
001066 * TEST BI=SYNC. WIDEBAND V35 (C5 AS SYNC. CHAR.) 
i. 001067 * 
001068 04C9 C871 . T47A LDR $R44+3B1 LOAD ID TYPE INTO $R4 
001069 O4CA c900 11¢3 CMR $R4e<WDOBV5B CHECK TO SEE IF ALREADY DONE 
001070 Oo4cCc 0902 BE >747 
001071 O4CDd OFFS B >T462 
001072 * 
001073 O4CE 8382 T47 JMP $B2 JUMP. OUT OF TEST 


001074 Pe re ee ee ee ee 
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001075 * 

001076 | * ADAPTER READY CHECK ROUTINE 

001077 * 

001078 O4CF €380 OBB7 ARCK LNJ $B6s<BASE LOAD $R5 WITH LCT BASE ADDRESS 

001079 04D1 SE3C ADV $R54=60 

001080 O4D2 DdDFOO 04D6 STR SRS oe <ARCK1 

001081 * . . 

001082 0404 £380 OD75 LNJ $B6e<RDLCT READ LCT LOCATIONS 25=28 

001083. 0406 0000 ARCK1 0C 0 

901084 0407 0004 DC 4 

001085 x 7 

001086 O4D8 8980 1173 Mz <LCTV SEE IF NO ERRORS IN ADAPTER READY BIT 

001087 O4DA 0903 BE >ARCK2 

001088 0408 F380 ODC2 LNJ $87,<ERDB ERROR: ADAPTER READY BIT SETTING INCORRECTLY 
001089 O4DD 8980 1174 ARCK2 CMZ <LCTV+t1 CHECK BUFFER EMPTY BIT ERROR 

001090 O4DF 0903 BE >ARCK3 

001091 O4E0 £380 Opnc2 LNJ $874 <ERDB ERROR: INCORRECT BUFFER EMPTY BIT 

001092 O4EF2 OF80 OBAD ARCK3 B <JPSA 

001093 * 

001094 * 

001095 ape ok cee a ak ta es Cee, ele st ee ees, Re ee eal eee ans Ss ees cee Gee, eee fess Soop oS oles edie, oe 
001096 

001097 * CRC AND PARITY TEST 

001098 * 

001099 0464 C870 4420 CRPTB LDR SR4,2A'D * 

001100 O466 CFOO 13A9 STR $SR4><ERMG+1 . 

001101 0468 8380 OBA6 LNJ $B3,<CLFG CLEAR ALL TEST FLAGS 

901102 O4EA 8A80 1156 INC <CRCFG SET FLAG FOR DTALOP SUB-ROUTINE 

001103 O4EC 8700 1160 CL <MASK SET MASK FOR ZV3C 

001104 O4EE C870 C802 LDR $R4,=2'C 802" SET LCT CONFIG. FOR 

001105 O4FO CFOO 1209 STR SR4e<LC2CFR RECVes ODD PARITY» CRC16 

001106 O4F2 4E20 ADV $R4,=X"20! | 

901107 O4F3 CFOO 12DA STR ERG »r<LC2CFX XMIT LCT CONFIG. ODD PARITY 

001108 O4F5 €880 110¢ LAB $B6e<CPFLG LOAD ADDRESS OF LCT FLAG TABLE 

001109 O4F7 C876 LDR $R4e+4SB6 LOAD $R4& WITH LCT FLAG 

001110 O4F8 CFOO 1200 CRPTB1 STR $R4e<LCT2FG STORE INTO LCT TABLE 

001111 O4FA F870 OF18 LDR SR7 9 =X°F 188 STORE INITIAL SPEED FOR ASYC, LINES 

001112 O4FC FFOO 1208 STR $R76<LCT2S 

001113 O4FE 7C06 LDV: SR7 2 =6 NUMBER OF 30 MS TIME DELAY FOR TRANSFER . 
001114 * ff 
001115 * TEST ASYNCHRONOUS LINES WITH OLD BAUD RATES 
001116 * 9600 BAUDs WITH 2 STOP BITS ee 
001117 : ‘ 

001118 O4FF 9880 11BA LAB $B1+<ASYN STORE ADDRESS OF LINE TYPE 

001119 0501 8380 OA8C LNJ $B34<DTALOP GO TO LOOP SUB-ROUTINE 

001120 0503 OF8S B >T8 

001121 0504 1322 DC <wCP2 ADDRESS TABLE FOR BLOCK WRITE 

001122 0505 1207 DC <LCT2 LCT TABLE 


001123 0506 OO3F dC (DFLT-DOUT) RANGE IN WORDS 
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aa 001124 0507 1163 DC <DOUT 
( 001125 * 
Se 001126 * 

001127 * TEST ASYCHRONOUS LINES WITH NEW BAUD RATES 
001128 * 19200 BAUD» WITH 2 STOP BITS 
001129 0508 9880 1188 T8 LAB $B1-<ASYN1 LOAD LINE TYPE 
001130 OSOA 8380 OA8C TBA LNJ $B834<DTALOP GO TO LOOP SUB-ROUTINE 
901131 O50C OF8S B >T9 | 
001132 0500 1322 OC <weP2 ADDRESS TABLE FOR BLOCK WRITE 
001133 OS5SOE 1207 DC <LCT2 LCT TABLE 
001134 OSOF OO3F DC (DFLT=DOUT) RANGE IN WORDS 
001135 0510 11€3 DC <O0UT 
001136 * 
001137 * TEST CURRENT LOOP ASYNCHRONOUS 
001138 * 
001139 0511 £4¢871 T9 LDR $R4,+$B1 LOAD ID TYPE INTO $R4& 
001140 0512 ¢c900 118C CMR SR4e6<ASYNC CHECK TO SEE IF ALREADY DONE 
001141 0514 0902 BE >TIA 
001142 0515 OFFS B >T8A 
001143 0516 TOA EQU $ . 
001144 0516 F870 3218 LOR $R74=X'3218! STORE SYNC. CHAR. INTO LCT TABLE 
001145 0518 FFOO 1208 STR $R76<LCT2S 
001146 OS1A 7C28 LOV $Rle=40 NUMBER OF 30 MS TIME DELAYS 
001147 * 
001148 * TEST SYNCHRONOUS LINES (32 AS SYNC. CHAR.) 
001149 * 
001150 0518 9880 118) LAB $B14<SYNC LOAD LINE TYPE 
001151 0510 8380 OA8C QA2 LNJ $B3/<DTALOP GO TO LOOP SUB-ROUTINE 
001152 OS5S1F OF85 B >T10 : 
001153 0520 1322 DC <wceP2 ADDRESS TABLE FOR BLOCK WRITE 
901154 0521 1207 DC <LCT2 LCT TABLE 
001155 0522 O02F DC (DFLT-DOUT1) RANGE IN WORDS 
901156 0523 11F3 Dc <DOUTI 
901157 * 
001158 * TEST BI-SYNCHRONOUS LINES (32 AS SYNC. CHAR.) 
001159 | k 
901160 0524 C871 T10 LDR $R4,+$B1 LOAD ID TYPE INTO $R4 
001161 0525 ¢900 11BE CMR $R46<BISYNC CHECK TO SEE IF ALREADY DONE 
001162 0527 0902 BE >T12 
001163 0528 OFFS B >QA2 
001164 * 
901165 * TEST MIL 188 SYNCHRONOUS (32 AS SYNC. CHAR.) 
001166 * 
001167 0529 9B80 118BF ™12 LAB $B1+<SYN188 LOAD LINE TYPE 
001168 0528 8380 OA8C LNJ $B34<DTALOP GO TO LOOP SUB-ROUTINE 
001169 O052D OF85 B >T13 
001170 OS2E 1322 DC <WCP2 ADDRESS TABLE FOR BLOCK WRITE 
901171 OS2F 12D7 DC <LCT2 LCT TABLE 


001172 0530 O02F DC (OFLT-DOUT1) RANGE IN WORDS 


TITLE DCMVA 


001173 
001174 
001175 
001176 
001177 
001178 
001179 
001180 
001181 


' 001182 


001183 
001184 
001185 
001186 
001187 
001188 
001189 
001190 
001191 
001192 
001193 
001194 
001195 
001196 
001197 
001198 
001199 
901200 
001201 
0017202 
001203 
901204 
001205 
001206 
901207 
001208 
001209 
001210 
001211 
001212 
001213 
001214 
001215 
001216 
001217 
001218 
091219 
901220 
001221 


0531 


11F3 


9B 80 


89 80 
0903 
98 80 
9F 80 
9F 80 
9880 
B38 


OF 85. 


0000 
1207 
003F 
11€3 


C871 
C900 
0902 
OFFS 


98 80 
B380 
OF 85 
0000 


1207 © 


00 3F 
11E3 


C871 
C900 
0902 
OFFS 


C&76 
49 80 
C800 
C970 
090D 
C870 


1322 
115E 


133F 
0550 
0542 
11¢0 
OA8C 


11¢€1 


112 
OA 8C 


11¢3 


O4F8 
12D9 
D802 


D802 
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DC 


<DOUTI 


TEST WIDEBAND 301/303 (3A AS SYNC. 


$B1e<wCPe 
<HGSPD 
>T13X 
$B1e<WOP8 
$B14<T132Z 
$B16<T13Y 
$B16<WOB3 
$B34<DTALOP 
>T37A 

SAF e0 
<LCT2 
{(DFLT-DOUT) 
<DOUT 


TEST BIKSYNC. 


$R4+381 
$R4,<WDB3B 
>T37 
>T132Z2 


TEST WIDEBAND V35 (3A AS SYNC. 


$B1,<WDBV35 
$B34<DTALOP 
>T38A. 
SAF oO 
“<LCT2 
CDFLT~DOUT) 
<DOUT 


WIDEBAND 


HRS ASSEMBLER 5.05 


PAGE 0028 


CHARACTER) 


LOAD ADDRESS OF MEDIUM SPEED ADDRESS TABLE 
CHECK FOR HIGH SPEED LINE 


LOAD ADDRESS OF HIGH SPEED ADDRESS TABLE 
STORE INTO DTALOP SUB-ROUTINE 


LOAD ADDRESS OF LINE TYPE 
LOOP SUB-ROUTINE 


301/303 (3A AS SYNC. 


CHAR, ) 


LOAD [D TYPE INTO $R4 
CHECK TO SEE IF ALREADY DONE 


CHAR.) 


“LOAD ADDRESS OF LINE TYPE 


TEST BI~SYNC. WIDEBAND V35 (3A AS SYNC. CHAR.) 


$R46+5B1 
$R4-<WOBVSB 
>T38 

>TI3YY 


$R45+5B6 
$R46<CRPTBI 
BR4e<LC2CFR 
$R4e=2'D802! 
>CRPTB2 
$R44=2'D802' 


LOAD ID TYPE INTO $R4 


CHECK TO SEE IF ALREADY DONE 


CHANGE 
SEE IF 
SEE IF 


BRANCH 
CHANGE 


LCT FLAG 
ALL FLAGS CHECKED : 
ALL COMBINATIONS HAVE BEEN RUN 


IF ALL TESTED 
LCT CONFIG. TO EVEN PARITY 


TITLE DCMVA 


001222 
901223 
001224 
901225 
001226 
0901227 
901228 
JO1229 
001230 
001231 
001232 
001233 
001234 
001235 
001236 


901237 
001238 
001239 
001240 
101241 
N01 242 
001243 
001244 
901245 
001246 
901247 
001248 
001249 
001250 
001251 
001252 
001253 
001254 
001255 
001256 
001257 
001258 
001259 
.007 260 
001261 
901262 
001 263 
001264 
001265 
001266 


901267 
901268 


0563 
0565 
0566 
0568 
O56A 
0568 
056D 
O56F 


CF OO 
4E20 
CF OO 
EB 80 
C876 
OF 80 
8700 
8382 


8F O00 
971 €0 
AC 80 
C842 
404E 
4—E05 
CFOO 


4008 
090A 
4007 
09 84 
C870 
OF 83 
c&70 
CFOO 


C842 
4017 
0A 00 


BC 80 
9B 80 
F800 
7001 
C842 
C5 70 
404C 
8B 54 
0001 
cFOO 


1209 


12DA 
110D 


O4F8 
1156 


118A 
OADF 
0002 


1153 


7F7F 


3F3F 
1160 


0006 
058C 
0802 
1D00 
1166 


0002 
1000 


1164 


07/28/78 


1733.9 edt Fri 


STR 
ADV 
STR 
LAB 
LDR 
B 
CRPTB2 CL 
JMP 


* 
* 
* 
* 
* 
* 
C 


RPRT 


LOB 


LDR 
SOR 
ADV 
STR 


+ 


CMV 
BE 
CMV 
BNE 
LDR 
B 
CHRF1 LDR 
CRPR1 STR 
* 
CRPR2 LDR 
CMV 
BAG 


k *&* * kk * & 


SAVE 


HRS ASSEMBLER 


SR4,-<LC2CFR 


$R4,=X' 20° 


SR44<LC2CFX 
$B6,<CPFLG+1 


$R44+3B6 
<CRPTB1 
<CRCFG 
$B2 


x ke & & wk & &k & & & 


<SAV2/=Z'91E0' 


$B2e<TG2 
$R4e$B2.2 
$R4414 
$R44=5 
ER4e6<C5 


ZVSC MASK ACCORDING TO CHAR, 


$R4,=8 
>CRPR2 
$R4,2=7 
>CHRF1 


$R4,=2'7F7EF! 
>CRPRI 
$R4,=2* 3F3F* 


$R4e<MASK 


$R4,3$B2.6 
$R4e=X'17' 
<CKCRC 


$B3<TG3 
$B1-<DIN1 
$R7e<RANGE 
R741 
$R456EB82.2 


$R4e=X*1000' 


$R4012 
=$R4,=X'1* 


SR4e<PTTY 


5205 


PAGE 0029 


STORE RECV CONFIG. 
CHANGE ADDRESS FOR XMIT LCT 
STORE XMIT CONFIG. 
SET TO TEST WITH PARITY 
LOAD $R4 WITH LCT FLAG 


BRANCH TO TEST ALL LINES AGAIN WITH EVEN PARI 


CLEAR CRC AND PARITY TEST FLAG 
JUMP OUT OF TEST 


x & * & 


CRC AND PARITY CHECK ROUTINE 


SAVE REGS. 


xk k ke kek kk 


x ke ke & & we ke ke we ke Uk he 


$B1-B2eER7 


LOAD ADDRESS OF LCT TABLE INTO $B2 
LOAD $R4 WITH CONFIG. 


SHIFT TO CHAR. 


SIZE 


STORE CHARACTER SIZE FROM CONFIG. 


SIZE 


SET MASK FOR ? BIT CHAR. 


SET MASK FOR 5 BIT CHAR. 


CHECK LCT FLAG TO SEE IF 


CRC AND/OR PARITY 


BRANCH TO CHECK CRC ONLY 


LOAD ADDRESS OF DATA BUFFER 

LOAD ADDRESS OF SHOULD BE WITH PARITY 
LOAD RANGE OF TRANSFER IN WORDS 
CHANGE RANGE TO BYTES 

CHECK CONFIGURATION TO SEE IF ODD 

OR EVEN PARITY 
SHIFT TO LSB 


COMPLEMENT THE 


BIT TO WORK IN SUB-ROUTINE 


STORE IN PARITY TYPE LOCATION 


TITLE OCMVA 


001269 
901270 
901271 


001272 
001273 
901274 
001275 
001276 
001277 
001278 


901279 
001280 
001281 
001282 
901283 
001284 
001285 
001286 
001287 
001288 
- 9071289 
001290 
001291 
001292 
901293 
001294 
901295 
001296 
001297 
901298 
9001299 
001300 
001301 
901302 
001303 
001304 


§ 001305 


901306 
001307 


0598 


059D 
OS9F 
OSA1 
OSA2 
O5A3 
OSA4 
O5A5 
O5A6 
OSA7 
OSA9 
OSAA 
OSAC 
OSAE 
0580 


0582 


0584 
0586 
0588 
OSBA 
O5B8C 
OSBE 
OSBF 
05¢1 
05¢C2 


05¢C4 
O5C6 
O5¢7 


05¢8 
OSCA 
05C8 


O5¢) 
OSCF 
05D0 


0501 
0503 
0504 


0506 
0508 
OSDA 
O50C 


C3 80 


FBCO 
D3 80 
OF 80 
1D00 
1¢ 00 
1160 
1166 
1176 
89 80 
090D 
D8 00 
£800 
F800 
F380 
FB FO 
D380 
DB80 
89C2 
OA 80 
E3 80 
5E 03 
DF OO 
SE 20 
dF O00 


E380 
0000 
0002 


C800 
4018 
CFQO 


E380 
0000 
0002 


€800 
4018 


CF OO. 


EB 80 
E800 
BC 80 
C842 


OBD9 


0003 
0000 


1176 


1178 
1177 
1176 
ODBA 


0001 
0000 
0B74 
0006 
OSF4 
0B8?7 


05C6 


OSCF 


0075 


1173 
1167 


0075 


1173 
1172 


11CA 
1153 
0B02 
0006 


1733.9 edt Fri 


CKPTY2 


CKCRC 


RCRRL 


RCRXL 


LNJ 


CALL 


CM2 
BE - 
LDR 
LDR 
LDR 
LNJ 
CALL 


LAB 


CM2 
BALE 
LNJ 
ADV 
STR 
ADV 
STR 


LNJ 
DC 
DC 


LDR 


SCL 


STR 


LNJ 
DC 
DC 


LDR 
SCL 
STR 


LAB 
LOR 
LOB 
LOR 
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oy, 

$B4e<CPAR GO TO CALCULATE PARITY ff a 
\oh bo 

ZV$C sDINT sDINe MASK » RANGEZERAR il 

<ERAR SEE LF ANY ERRORS 

>CKPTY2 

SRS e<ERAR+2 LOAD "is* INTO $R5 

$ROe<ERAR41 LOAD ‘should be*® INTO $R6 

SR7e<ERAR LOAD $R7 WITH WORD COUNT 

$B7,<ERMB ERROR: INCORRECT PARITY 

ZV$CO CONTINUE CHECKING ENTIRE BUFFER 

SBS e<JdP5 CHANGE $85 TO POINT TO AFTER COMPARE 

$B2.6 CHECK FLAG IF PARITY ON TO 

<EDCK BRANCH IF PARITY NOT ON 

$86%<BASE LOAD $R5 WITH LCT BASE ADDRESS 

$R5 923 FOR BLOCK READ OF CRC RESIDUE 

SRS e<RCRRL STORE RECV. RESIDUE ADDRESS 

$R5 e232 

SRS e<RCRXL STORE XMIT RESIDUE ADDRESS 

$B6e<ROLCT READ RECV, CRC RESIDUE 

QO RAM ADDRESS 

2 RANGE 

SR40KLCTY 

$R498 ROTATE THE ORDER 

$R4<RCRC 

-$B6e<RDLCT READ XMIT CRC RESIDUE 

0 RAM ADDRESS : Bree 

2 RANGE Gd 

SR4e<LCTV a: 

$R408 

SRG e<XCRC 

$B6e<CRC16 LOAD CRC TYPE 

$RO0<CS LOAD CHAR, SIZE 

$834<TG3 LOAD ADDRESS OF OUTPUT BUFFER 

$R4e$B2. 6 CHECK FLAG TO SEE IF OUTPUT BUFFER CORRECT 


Se rtded aan vadicean! fafa domsbantt den at! eavatend 0 Sedans cine opsteneatoeue nemneriathene Woleet me Leen ne eed at Sa nee ac te Le alle Ler a cnt 
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ee 001308 OSDE 4017 CMV $R4,=X'17! 
( 001309 OSODF 09 8&3 BNE >CKPCR 

Eo 3 001310 O5S€0 8B80 1000 LAB $B3-<DIN1 
001311 OSE2 F800 1166 CKPCR LDR SR7e<RANGE LOAD RANGE OF TRANSFER IN WORDS 
001312 * 
001313 OSE4 C380 OBBB LNJ $B4e<CRC CALCULATE CRC FOR THE TRANSFERS 
001314 * 
001315 OSE6 E800 1155 LDR SROe<CRCAC LOAD $R6 WITH SHOULD BE 
001316 O5SE8 D800 1167 LDR SRS eo <RCRC LOAD CRC RECV. RESIDUE 
001317 OSEA £955 CMR SROZ=SRS COMPARE RECEIVE CRC 
901318 OSEB 0903 BE >RCRCG 
001319 OSEC F380 ODC2 LNJ $B7+<ERDB ERROR: RECEIVE CRC RESIDUE WRONG 
001320 OSEE D800 1172 RCRCG LOR S$RS27<XCRC LOAD XMIT CRC RESIDUE 
001321 OSFO £955 CMR SRO =SRS5 COMPARE XMIT CRC 
001322 O5F1 0903 BE >EDCK 
001323 OSF2 F380 ODC2 LNJ $B7-<ERDB ERROR: XMIT RESIDUE WRONG 
001324 OSF4 8F80 118A —EDCK RSTR <SAV2e=Z'91E0" RESTORE REGS. 

O5F6 910 

001325 OSF7 8385 JMP $B5 GO BACK TO DATLOP SUB-ROUTINE 
001326 * 
001327 * 
001328 RD on tary Neo, Ooh coh Ss ws Se SE ese ese pt eh ae cat Oo, est EE ae, I, Se es aes wee oe, Ae ee, ee et 
001329 * 
001330 * CHARACTER SIZE TEST 
001331 * 
001332 OSF8 C870 4520 CHSZTD LDR SR4,2A°E * 
001333 OSFA CFOO 13A9 STR $R4e<ERMG41 
001334 OSFC 8380 OBA6 LNJ $B35<CLFG CLEAR ALL TEST FLAGS 
001335 OSFE 8A80 1150 INC <CHSZFG SET CHARACTER SIZE TEST FLAG 
001336 0600 4c02 LDV SRG» =2 LOAD CONFIGURATION FOR 1 STOP BIT ODD 
9001337 0601 cCFOO 12€9 STR $R46<LC4CER PARITYs 5 BIT CHAR. RECV. 
001338 0603 4£20 ADV $R4,=X'20! 
001339 0604 CFOO 12EA. STR BR4e<LC4CFX STORE XMIT CONF, 
001340 0606 C870 1FIF LDR $RGZE2'1F1F* SET MASK FOR FIVE BIT CHAR, 
001341 0608 cFOO 1160 STR SR4e<MASK 
001342 O60A 7C€06 CHSZT1 LDV $R7 6 =6 NUMBER OF 30 MS TIME DELAY FOR TRANSFER 
001343 0608 C870 OF18 LDR $R4,=X°F 188 SET LINE SPEED FOR ASYNC. LINE 
001344 0600 cCFOO 12€8 STR SR4e<LCT4S | 
001345 a 

001346 * TEST ASYNCHRONOUS LINES WITH OLD BAUD RATES 

( 901347 * 9600 BAUD, WITH 1 STOP BIT 

001348 * 
001349 O60F 9880 11BA LAB $B1+<ASYN STORE ADDRESS OF LINE TYPE 
001350 0611 8380 OA8C LNJ $B34<DTALOP GO TO LOOP SUB-ROUTINE 
001351 0613 OF8S g >T14. 
001352 0614 1327 DC <WCP3. ADDRESS TABLE FOR BLOCK WRITE 
001353 0615 12E7 oc <LCT4 LCT TABLE 
001354 0616 OO3F DC (DFLT-DOUT) RANGE IN WORDS 
001355 0617 11€3 DC <pouT 
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001356 * 

001357 * | TEST ASYCHRONOUS LINES WITH NEW BAUD RATES 

001358 * 19200 BAUDs WITH 1 STOP BIT 

001359 oo 

001360 0618 9880 1188 T14 LAB $B12<ASYN1 LOAD LINE TYPE 

001361 061A 8380 OA8C © TI4A LNJ $834<DTALOP GO TO LOOP SUB-ROUTINE 

001362 061C .OF85 B >T15 

001363 061D 1327 oC <WCP3 ADDRESS TABLE FOR SLOCK WRITE 

001364 O61EF 12E7 DC <LCT4 LCT TABLE 
001365 O61F OO3F | DC (DF LT-DOUT) RANGE IN WORDS 

001366 0620 1163 DC <DOUT 

001367 | x 

001368 * TEST CURRENT LOOP ASYNCHRONOUS 

001369 x 

001370 0621 C871 T15 LDR $R4 +81 LOAD ID TYPE INTO $R4 

001371 0622 c900 118¢ CMR SR4e<ASYNC CHECK TO SEE IF ALREADY DONE 

001372 0624 0902 BE >T15A . | 

001373 0625 OFFS B >TIGA 

001374 0626 T15A EQU $ 

901375 0626 F870 £618 , LDR $R7,22'E618! STORE SYNC. CHAR. INTO LCT TABLE 
001376 0628 FFOO 12E8 STR SR7e<LCT4SS 

001377 062A 7€28 LDV $R7 4240 NUMBER OF 30 MS TIME DELAYS 

001378 * 

001379 | * TEST SYNCHRONOUS LINES (E6 AS SYNCe CHAR.) 

001380 * : 

001381 0628 9880 118D LAB $B16<SYNC LOAD LINE TYPE 

001382 062d 8380 OA8C QA3 LNJ $B83%e<DTALOP GO TO LOOP SUBROUTINE. 

001383 O62F OF8S | B >T16 

001384 0630 1327 DC <weoP3 ADDRESS TABLE FOR BLOCK WRITE 

001385 0631 12E7 DC <LOTS LCT TABLE 

001386 0632 O02F DC (DFLT-DOUT1) RANGE IN WORDS 

001387 0633 11F3 DC <d0UT1 

001388 * 

001389 * TEST BI-SYNCHRONOUS LINES (E6 AS SYNC. CHAR.) 

001390 © x 

001391 0634 C&71 T16 LDR $R46+$81 LOAD ID TYPE INTO $R4 

001392 0635 C900 11BE CMR $R4e<BISYNC CHECK TO SEE IF ALREADY DONE 

001393 0637 0902 BE >T17 

001394 0638 OFFS B >RA3 a 
001395 * . -_ = 
001396 * TEST MIL 188 SYNCHRONOUS (E6 AS SYNC. CHAR.) ia 
001397 * PhS a te 
001398 0639 9880 118F T17 LAB $B16<SYN188 LOAD LINE TYPE 

001399 0638 8380 OA8C | LNJ ~$B3,<DTALOP GO TO LOOP SUB-ROUTINE 

001400 063d OF85 B >T18 

001401 O63E€ 1327 DC <WCP3 ADDRESS TABLE FOR BLOCK WRITE 

001402 O63F 12€7 DC <LCOT4S LCT TABLE 

001403 0640 OO02F DC (DFLT-DOUT1 ) RANGE IN WORDS 

001404 0641 113 DC <DOUT1 


TITLE OCMVA 


001405 
001406 
001407 
001408 
001409 
001410 
001411 
001412 
001413 
001414 
001415 
001416 
001417 
001418 


001419 


001420 
001421 
001422 
001423 
001424 
001425 
001426 
001427 
001428 
001429 
001430 
001431 
001432 
001433 
001434 
001435 
001436 
001437 
007438 
001439 
001440 
001441 
001442 
001443 
001444 
001445 
001446 
001447 
001448 
001449 
001450 
001451 
001452 
001453 


0642 
0644 
0646 


064? 


0649 
0648 
O64D 
O64F 
0651 
0652 
0653 
0654 
0655 


0656 
0657 
0659 
O65A 


0658 
065D 
O65F 
0660 
0661 
0662 
0663 


0664 
0665 
0667 
0668 


0669 
0668 
066D 
O66F 
0670 
0672 
0673 


98 80 
89 80 
0903 
9B80 
9F 80 
9F 80 
9B 80 
B380 
OF 85 
0000 
12E7 
00 3F 
T1E3 


C871 
C900 
0902 
OFFS 


9B 80 
B3 80 
OF 85 
0000 
12E7 
OO 3F 
11€3 


C871 
C900 
0902 
OFFS 


8A 80 
¢800 
CA70 
0608 
CF OO 
4E 20 
CF OO 


1327 
115E 


Toh 
0660 
0652 


11¢0 
OA8C 


11C1 


11Ce 
OA8C 


11C3 


1156 
12E9 
4000 
Teo 


12EA 
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TEST WIDEBAND 301/303 (E6 AS SYNC. 


$B1,<wCP3 
<HGSPD 
>T18X 
$B1,<WCP8 
$814<T182 
$B1e<T18Y 
$B16<WDB3 
$B3,<DTALOP 
>T35A 

SAF ,0 
<LCT4 
(DFLT-DOUT) 
<DOUT 


TEST BI-SYNC. 


$R44+3B1 
$R44<W083B 
>T35 
>T18YY 
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CHARACTER) 


LOAD ADDRESS OF MEDIUM SPEED ADDRESS TABLE 
CHECK FOR HIGH SPEED LINE 


LOAD ADDRESS OF HIGH SPEED ADDRESS TABLE 
STORE INTO DTALOP SUB-ROUTINE 


LOAD ADDRESS OF LINE TYPE 
LOOP SUB-ROUTINE 


301/303 (E6 AS SYNC. CHAR.) 


LOAD ID TYPE INTO $R4 
CHECK TO SEE IF ALREADY DONE 


TEST WIDEBAND V35 CE6 AS SYNC. CHAR.) 


$B1/<wWO0BV35 
$834<DTALOP 
>T36A 
SAF 40 
<LCTS 
COFLT=-DOUT) 
<DOUT 


TEST BI-SYNC. 


$R444+581- 
$R4,<WDOBV5B 
>T36 

>T1822 


<CRCFG 
ER4,<LC4CFR 
$R4,=x"4000° 
>CHSZDE 
$R4,<LC4CFR 
$R44=X'20' 
ER4,<LC4CFX 


WIDEBAND 


LOAD ADDRESS OF LINE TYPE 


V35 €E6 AS SYNC. CHAR.) 


LOAD ID TYPE INTO S$R4 
CHECK TO SEE IF ALREADY DONE 


CHANGE CONFIGURATION TO NEXT CHAR. SIZE 


IF CARRY ALL CHAR. SIZES HAVE BEEN TESTED 


STORE RECV CONFIG. 


STORE .XMIT CONFIG. 


TITLE OCMVA 


001454 
001455 


001456 | 


001457 
001458 
001459 
001460 
N01461 
901462 
001463 
001464 
001465 
001466 
001467 
001468 
001469 
001470 
001471 
001472 
001473 
001474 
001475 
001476 
001477 
001478 
001479 
001480 
001481 
001482 
001483 
001484 
001485 
001486 
001487 
001488 
001489 
001490 
001491 
001492 
001493 
001494 
001495 
001496 
001497 
001498 


001499 | 


001500 
001501 
001502 


0675 


0677 
0679 
0678 


067C 
O67E 
0680 
0682 
0684 
0686 
0688 


068A 
068C 
068D 
O68E 
0690 
0691 
0693 
0695 
0696 


0698 
O69A 


069C 
O69E 


O6A0 
O6A2 
O6A4 
O6A6 
06A8 
O6A9 
O6A8 
O6AD 


O6AF 


0681 


0683 
0685 
0687 


OF 80 


8700 


~ 8700 


8382 


C870 
c FOO 
B3 80 
C880 
CF 80 
CB 80 


CF 80 


C800 
4F 06 
4EF? 
CFOO 
4E 12 
cFOO 
8E 70 
4€ 01 
CFOO 


CB 80 
CF 8&0 


CB 80 
CF 80 


8700 
8A 80 
C870 
CF OO 
4E 20 
CFOO 
C870 
9B 80 
EB 80 
B3 80 


C870 
96 80 
B3 80 


O60A 


1156 
1150 


4620 
13A9 
OBA6 
0695 
12CA 
12¢7 
0004 


115F 


1224 


1225 
8004 


0000 


O6FB 
12C4 


12C€1 
0001 


12E5 
116€ 
C002 
12£1 


12E2 
0318 
11BA 
1276 
O3CE 


0218 
11388 
O3CE 
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B 
x 


CHSZDE CL 
CL 
JMP 


TBITE LOR 


SBIT1 LDV 


HRS ASSEMBLER 5.05 


<CHSZT1 


<CRCFG 
<CHSZFG 
$B2 


STOP BIT TEST 


$R4,=A°F * 
$R4A<ERMGH1 
$B83e<CLFG 
$B4,/<SBIT1 
$B4e<1SA4P 
$B46<ISA4tSAF 
$B45<ZHISAZ +4 


$R4¢<HRTZ 
$R4,=6 

$R4 72-9 
$R4e<SECL 
$R442=18 
$R4e<SECH 
=2°8004* 
$R4,=1 
$R4e<ZHRTICL 


$B4,<NBITT 
$B44<ISA1IP 


$B4e<ISAIT+S$AF 
$B4e<ZHISAZ +1 


<LC3SYF 


<SBTFG 


$R4,2=2'CO02' 
SR4/<LC3CFR 
$R46=X*20" 
$R4e<LCO3CFX 
$R4,2=X*°318* 
$B1s<ASYN 
$B6e<SBITBL 
$B34<SPDTLP 


$R4,=X'218° 
$B14<ASYN1 
SB3e<SPDTLP 


-—ffotOlenemeleeTUl Tl SPU Dl OOOO ell Delle 
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DO NEXT CHAR, 


CLEAR CRC AND PARITY FLAG 
CLEAR CHARACTER SIZE TEST FLAG 
JUMP OUT OF TEST 


CLEAR ALL TEST FLAGS 
SET UP INTERRUPT VECTORS AND 
POINTERS TO CHANGE RUNNING LEVEL TO 4 


CALCULATE THE LOW AND THE 
HIGH RANGE OF ACCEPTABLE CLOCK TICKS 


CHANGE RUNNING LEVEL TO 4 


SET RTC LEVEL TO 1 


SET RUPT POINTER FOR RTC INTERRUPT 


SET RUPT VECTOR FOR LEVEL 7 RUPT 


CLEAR SYNC. FLAG FOR ASYNC, LINE 
SET STOP BIT TIME TEST FLAG 
LOAD AND STORE INITIAL LINE CONF. 


FOR RECV. 

FOR XMIT fo 
LOAD $R4 WITH SPEED FOR ASYNC.. LINE | 
LOAD LINE TYPE be 


LOAD ADDRESS OF CHAR. 
GO TO SPEED TIME LOOP 


NUMBER TABLE 


LOAD $R4& WITH SPEED SELECT FOR NEW 
LOAD ADDRESS OF LINE TYPE 
GO TO SPEED TIME LOOP 


ASYC. 
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ae 001503 O689 C¢8&70 0218 LDR $R44=X'218° 
( 001504 0688 9880 118C LAB $B14<ASYNC 
001505 068d 8380 O3CE LNJ $B34<SPDTLP 
001506 * 
001507 CALL ZVSRD RE-INITIALIZE INTERRUPT POINTERS AND VECTORS 
O6BF FBFO 0001 
06C1 0380 O000 X 
001508 .96C3 8700 116E CL <SBTFG CLEAR STOP BIT TEST FLAG 
001509 O06C5 8382 JMP $B2 JUMP OUT OF TEST 
001510 * 
001511 ee ee ee 2 ee 
001512 * 
001513 * STOP BIT TIME CHECKED HERE 
001514 * 
901515 O06C6 C940 OBSE SBTE CMR $R46SECH SEE IF CLOCK TICK WITHIN 
001516 Q06C8 0803 BAL >SBTE1 ACCEPTED RANGE 
001517 06C9 F380 ODC2 LNJ $B7/<ERDB ERRORS STOP BITS ARE TOO LONG 
001518 O06C8 C900 1224 _SBTE1 CMR SR4e6<SECL 
001519 06CD OA03 BAG >SBTE2 
901520 O6CE F380 ODC2 LNJ $B874<ERDB ERROR: STOP BITS ARE TOO SHORT 
001521 Q6D0 oD&00 12E1 SBTE2 LDR SRSe<LC3CFR LOAD LCT CONFIG. 
001522 0602 8955 LBT =$R5,=2* 0800" SEE IF BIT SET AND SET IT 
0603 0800 
001523 0604 0509 BBT >SBTES3 IF TRUE TRY SLOW SPEED FOR 1.45 STOP. BIT 
001524 Q0605 DFOO 12€1 STR $RSe<LC3CFR STORE LCT CONFIG. WITH 2 STOP BITS 
001525 0607 5€&20 ADV $RSe=X*' 20! 
001526 0608 ODFOO 12E2 STR S$RSe<LC3CFX STORE CONFIG. XMIT 
001527 O6DA 8AD2 INC =$R2 INCREMENT INDEX 
001528 060B OF80 O3DC B <NXSPD1 
001529 * 
001530 O6DD 2003 SBTE3 CMV $R2 6 =3 SEE IF ALL STOP BIT S CHECKED 
001531 O6dE 0900 O6F2 BE <SBTE4 
001532 O06EO 4¢€02 LOV $R4,=2 CHANGE CONFIG. FOR 5 BIT CHAR. 
001533 O6€1 CFOO 12E1-. STR SR44<LC3CFR STORE RECV CONFIG. 
001534 OQ6£&3 4€20 ADV $R4,=X*20! 
001535 O6E4 CFOO 12E2 STR ER4e<LC3CFX STORE XMIT CONFIG. 
001536 O6E6 BAD2 INC =$R2 INCREMENT INDEX 
001537 O6E7 C870 0218 LDR $R45=X4218' LOR $R4 TO SET LINE SPEED T0 75 BAUD 
001538 OQO6E9 0801 LDR $R5581 IF NEW ASYC. RESET $R4 FOR 75 BAUD 
artes 001539 O6EA 0900 11BA CMR $R5e<ASYN 
_—— 001540 O6EC 0900 O3DA BE <NXSPD 
001541 OQ6EE C870 0118 LOR €R4-=X'118° 
001542 O6FO OF80D O3DA B <NX SPO 
001543 * 
001544 O6F2 C870 C002 SBTE4 LDR $R4=Z2'CO002'° LOAD AND STORE BEGINNING CONF, 
001545 O6F4S4 CFOO 12E1 STR SR4e<SLC3CFR FOR RECV,. 
001546 O6F6 4E20 ADV $R4,=X'20! 
001547 O6F? CFOO 12E2 STR SR4e<LC3CFX FOR XMIT 


001548 O6F9 OF80 047A B <TSNL 


TITLE DCMVA 


001549 
001550 
001551 
001552 
001553 
001554 
(001555 
001556 
001557 
001558 
001559 
001560 
001561 
001562 
001563 
001564 
001565 
001566 
001567 
001568 
001569 
001570 
001571 
001572 
001573 
001574 
001575 
001576 
001577 
001578 
001579 
001580 
001581 
001582 
001583 


901584 . 


001585 
001586 
001587 
001588 
001589 
001590 
001594 
001592 
001593 
001594 
001595 
001596 
001597 


O6FB 
O6FC 
O6FE 


0700 © 


0702 
0704 


0705 
0707 
0709 
0708 
070D 
O70F 
0711 
0713 
0715 
0717 
0719 
0718 
0710 


O71E 
0720 
0722 
0723 
0724 
0725 
0726 


0727. 


0729 


0005 
F380 
0B 80 
DF 80 
8E 70 
OFF? 


C870 
CFOO 
B3 80 
8A 80 
C870 
CF OO 
CA70 
CF OO 
C870 
CFOO 
F870 
FF OO 
7006 


9B 80 
B3&0 
OF 85 
1322 
1207 
00 3F 
VES 


9B 80 


‘B3 80 


OpdCc2 
O30C 
12CA 
8004 


4720 
13A9 
OBA6 
1163 
C802 
1209 
1020 
12DA 
FQ17 
12D) 
OF 18 
12DB 


11BA 
OA8C 


11BB 
OAC 
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BITT 


+ + ee & & He 


PARERF 


+ + He FH 


LNJ 
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++ eteeeete ee eeetee eee eetnee tee eee eee eteee eo 


CLOOCK INTERRUPT 


$B7e<ERDB 
$B5 6 <NXSPD1 
$B5e<ISA4P 
=2*8004* 
>NBITT 


PARITY ERROR TEST 


SR4e,zA'GC ! 
$R456<ERMG+H1 
$B3/<CLFG 
<PARFG 
$R4,=2'C802° 
$R44<LC2CFR 
$R4¢6=X"'1020° 
B$R4e<LC2OCFX 
$R4,2=2°F017* 
$R4e<LCT2FG 
$R7,=X°F 18° 
BR7 eo <LCT2S 
$R7 4 =6 
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ROUTINE 


TURN OFF CLOCK 

ERROR: STATUS NOT COMPLETE AFTER 5 SEC, 
RETRY THE LINE 

WITH SAME CONFIG. 


—_ ~~ oe _— Ed —_ —_ — —_ = _ —_ ad - — —™ -~ cd - - Sd Coad 


CLEAR TEST FLAGS 


LOAD CONFIG. ON REC. FOR ODD PARITY 


SET CONFIG. ON XMIT TO EVEN PARITY 
SET CCP FLAG FOR PARITY ONLY 
STORE INITIAL SPEED FOR ASYC. LINES 


NUMBER OF 30 MS TIME DELAY FOR TRANSFER 


TEST ASYNCHRONOUS LINES WITH OLD BAUD RATES 


9600 BAUD» WITH 2 STOP BITS 


$B1e<ASYN 
$B3e<DTALOP 
>139 

<wePe2 

<LCT2 
(DFLT-DOUT) 
<DOUT 


STORE ADDRESS OF LINE TYPE 
GO TO LOOP SUB-ROUTINE 


ADDRESS TABLE FOR BLOCK WRITE ci 
LCT TABLE 


RANGE IN WORDS ees 


TEST ASYCHRONOUS LINES WITH NEW BAUD RATES 


19200 BAUDs WITH 2 STOP BITS 


$B16<ASYN1? 
$B3/<DTALOP 


LOAD LINE TYPE 
GO TO LOOP SUB-ROUTINE 
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001598 0728 OF8S B >T40 . 
001599 O72C 1322 DC <weP2 ADDRESS TABLE FOR BLOCK WRITE 
001600 072d 1207 DC <LCT2 LCT TABLE 
001601 O72€ OC3F DC (DFLT-DOUT) RANGE IN WORDS 
001602 O72F 11£3 DC <DOUT 
001603 * 
001604 * TEST CURRENT LOOP ASYNCHRONOUS 
001605 * 
001606 0730 C871 T40 LDR SR45+$B1 LOAD ID TYPE INTO $R4 
001607 0731 c900 118¢ CMR SRG e<ASYNC CHECK TO SEE IF ALREADY DONE 
001608 0733 0902 BE >T40A 
001609 0734 OFFS B >T39A 
001610 0735 T40A EQU $ 
001611 0735 F870 3218 LOR SR7 eo =X *32183 STORE SYNC. CHAR. INTO LCT TABLE 
001612 0737 +=+%.>FFFOQO 12D8 STR ER74<LCT2S 
001613 0739 7C€28 LDV $R74=40 NUMBER OF 30 MS TIME DELAYS 
001614 * . 
001615 * TEST SYNCHRONOUS LINES (32 AS SYNC. CHAR.) 
001616 * 
001617 O73A 9880 118D LAB $B16<SYNC LOAD LINE TYPE 
001618 073C 8380 OA8C QA4 LNJ $B34<DTALOP GO TO LOOP SUB-ROUTINE 
001619 O73€ OF 85 B >T41 
001620 O73F 1322 DC <WCP2 ADDRESS TABLE FOR BLOCK WRITE 
001621 0740 1207 DC <LCT2 LCT TABLE 
001622 0741 OO2F DC (DFLT-DOUT1) RANGE IN WORDS 
001623 0742 11F3 DC <DOUT1 
001624 * 
001625 * TEST BI-SYNCHRONOUS LINES (32 AS SYNC. CHAR.) 
001626 * 
001627 0743 C871 T41 LOR SR4,+$B1 LOAD ID TYPE INTO $R4 
001628 0744 c900 11BE CMR $R45<BISYNC CHECK TO SEE IF ALREADY DONE 
001629 0746 0902 BE >T42 
001630 0747 OFES B >QA4S 
001631 * 
001632 * TEST MIL 188 SYNCHRONOUS (32 AS SYNCw CHAR.) 
001633 * 
001634 0748 9880 118BF T42 LAB $B1/<SYN188 LOAD LINE TYPE 
001635 074A 8380 OA8C LNJ $835<DTALOP GO TO LOOP SUB-ROUTINE 
001636 074C OF8&5 B >143 
“ane 001637 O74d 1322 . DC <WwCP2 IORB ADDRESS FOR BLOCK WRITE 
( 001638 O74E 12D7 oC <LCT2 LCT TABLE 
001639 O74F OO2F DC CDFLT-DOUT1) RANGE IN WORDS 
001640 0750 11F3 DC <pDOUTT 
001641 * 
001642 * | 
001643 * TEST WIDEBAND 301/303 (3A AS SYNC. CHARACTER) 
001644 * 
001645 0751 9B80 1322 T43 LAB $B1,<WCP2 LOAD ADDRESS OF MEDIUM SPEED ADDRESS TABLE 
001646 0753 8980 115€ CM2Z <HGSPD - CHECK FOR HIGH SPEED LINE 


TITLE OCMVA 


001647 0755 0903 

001648 0756 9880 

001649 0758 9F80 

001650 O7S5A 9F80 

001651 O75C 9880 

001652 O75E 8380 

001653 0760 OF85 

001654 0761 0000 

001655 0762 1207 

001656 0763 OO03F 

001657 0764 11€£3 

001658 

001659 

001660 

001661 0765 C¢871 

001662 0766 c¢900 

001663 0768 0902 

001664 0769 OFFS 

001665 . - 

001666 

001667 

001668 O76A 9880 

001669 076C 8380 

001670 O76E OF85 

001671 O76F oO000 

001672 0770 12D7 

001673 0771 OO3F 

001674 0772 1163 

001675 

001676 

001677 

001678 0773 C871 

001679 0774 ¢900 

001680 0776 90902 

001681 0777 OFFS 

001682 

001683 0778 «8700 

001684 077A 8382 

001685 

001686 

001687 

001688 

001689 

001690 0778 C380 

001691 O77D 8205 
077E£ 1000 

001692 O77F 0503 

001693 0780 F380 

001694 0782 82D5 


133F 
07 6F 
07 61 
11¢0 
OA8C 


11¢1 


11C€2 
OA8C 


1103 


1163 


0Dd25 


ODBA 
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BE >T43xX 
LAB $B15<WCP8 LOAD ADDRESS OF HIGH SPEED ADDRESS TABLE 
T43X STB $B14<T432 STORE INTO DTALOP SUB-ROUTINE 
STB $B1e<T43Y 
LAB $B14<WDB3 LOAD ADDRESS OF LINE TYPE 
T43YY LNJ $B3,<DTALOP LOOP SUB-ROUTINE 
B >T44A 
T43yY RESV SAF 40 
DC <LCT2 
DC (DFLT-DOUT) 
nye <DOUT 
* 
* TEST BI-SYNC. WIDEBAND 301/303 (3A AS SYNC. CHAR.) 
* 
T44A LDR $R4,+$B1 LOAD ID TYPE INTO $R4G 
CMR $R44<WDB3B CHECK TO SEE IF ALREADY DONE 
BE >T44 
B >T43YY 
mn 
* TEST WIDEBAND V35 (3A AS SYNC. CHAR.) 
* 
T44 LAB $B1/<WDBV35 LOAD ADDRESS OF LINE TYPE 
T4322 LNJ $834<DTALOP 
B >T45A 
7432 RESV SAF.0 
DC <LCT2 
DC (OF LT-DOUT) 
dC <DOUT 
* 
* TEST BI-SYNC. WIDEBAND V35 (3A AS SYNC. CHAR.) 
* 
T45A LDR $R45+$B1 LOAD ID TYPE INTO SR4 
CMR $SR4e<WDBVSB CHECK TO SEE IF ALREADY DONE 
BE >T45 
B >14322 
*® 
T45 CL <PARFG 
JMP: -$B2 
* 
Ft Ae pe eran gt Gate OF To Pipe ae ona price acetate rw fe! Cat Ue epas Rehm e ay Me Pane eGR Ge AIMS ek or Pe 
* seas 4 
* CHECK PARITY ERROR BIT SET a 
‘i _ 
PART LNJ $B46<INXT INPUT NEXT STATUS 
LB =$R54=X*1000° 
BBT >PAR2 : 
LNJ $B7,<ERMB ERROR: STATUS COMPLETE BIT NOT SET 
PAR2 LB =$R5,2=X'40! SEE IF DATA CHECK ERROR BIT SET 
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0783 0040 
001695 0784 0503 BBT >PAR3 
001696 0785 F380 ODBA LNJ $B7/<ERMB ERROR: DATA CHECK ERROR BIT NOT SET 
001697 0787 8AD3 PAR3 INC =$R3 
001698 0788 C380 0D25 LNJ $B4e<1NXT INPUT NEXT STATUS 
001699 O78A 82D5 LB =$R5-=X*'1000° 
0788 1000 
001700 O78c 0503 BBT >PARG : 
001701 078d F380 QDBA LNJ $B74<ERMB ERROR: STATUS NOT COMPLETE ON XMIT SIDE 
001702 O78F 8205 PAR4 LB =$R5 42X40! 
0790 0040 
001703 0791 0583 BBF >PARS 
001704 0792 F380 ODBA LNJ $B76<ERMB ERROR: DATA CHECK ERROR BIT SET ON XMIT 
001705 0794 OF80 OBAD PARS 8B <JPSA 
001706 * 
001707 * 
001708 Be hee Bes She ase ee mane Ase se aa let aes set ag ete, eat pe, Me Se af ety 
001709 * 
001710 . STOP 1/0 TEST 
001711 
001712 0796 C870 4820 STIOG LDR SR4,5A'H 
001713 0798 cCFOO 13A9 STR $R4<ERMG41 
001714 O79A 8380 OBA6 LNJ $B3F<CLFG CLEAR ALL TEST FLAGS 
001715 O79C A800 11C6 LOR $R26<BIT2 LOAD $R2 WITH FUNCTION COMMAND 
001716 O79€ 8A80 1170 INC <STPFG 
001717 O7A0 8700 12F6 CL <LCSSYF CLEAR SYNC. FLAG FOR ASYNC. LINES 
001718 O7A2 C870 OF18 LDR $R4,=X'F 18° 
001719 O7A4 CFOO 12F2 — STR SR4e<LCTSS 
001720 O7A6 7C02 LOV SR7e=2 NUMBER OF 30 MS DELAY 
001721 . 
001722 . TEST ASYNCHRONOUS LINES WITH OLD BAUD RATES 
001723 . AT 9600 BAUD,» WITH 2 STOP BITS 
001724 | " 
001725 O7A7 9880 11BA LAB $B1/<ASYN STORE ADDRESS OF LINE TYPE 
001726 O7A9 8380 OA8C LNJ $B3<DTALOP GO TO LOOP SUB-ROUTINE 
001727 O7AB OF85 3 >T19 
001728 O7AC 1310 DC <wePt ADDRESS TABLE FOR BLOCK WRITE 
001729 O7AD 12EE DC <LCTS LCT TABLE 
001730 O7AE 01286 DC 438 RANGE IN WORDS 
po 001731 O7AF 1163 DC <DOUT TRANSMIT BUFFER 
( 001732 . 
001733 TEST ASYNCHRONOUS LINES WITH NEW BAUD RATES 
001734 AT 19200 BAUD» WITH 2 STOP BITS 
001735 * | 
001736 0780 9880 1188 T19 LAB $B1/<ASYN1 LINE TYPE 
001737 0782 8380 OA8C TI9A LNG $B34<DTALOP 
001738 0784 OF85 B >T20 
001739 O7B85 1310 DC <wCP1 


001740 0786 12EE DC <LCTS 
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TITLE DCMVA 


001741 
001742 
001743 
001744 
001745 
001746 
001747 
001748 
001749 
001750 
001751 
001752 
001753 
001754 
001755 
001756 
001757 
001758 
001759 
001760 
001761 
001762 
001763 
001764 
001765 
001766 
001767 
001768 
001769 
001770 
001771 
001772 
001773 
001774 
001775 
001776 
001777 
001778 
001779 
001780 
001781 
001782 
001783 
001784 


001785 — 


001786 
001787 
001788 
001789 


0787 
0788 


07B9 
O7BA 


O7BC. 


078) 


Q7BE 
O7C0 
07C2 
07C4 
07C6 


O7C? 
07C9 
07C3 
O7cc 
07CD 
O7CE 
O7CF 


0700 
0701 
0703 
0704 


O07D5 
0707 
O7D9 
O7DA 
07D8 
070C 
O70D 


O7DE 
O7EOD 
O7E1 
O7E3 


0186 
11€3 


C871 
C900 
0902 
OFFS 
O7 BE 
C870 
CFOO 
€8&70 
CFOO 
7CQ5 


9880 
B380 
OF 85 
131D 
12EE 
0186 
11F3 


C871 
€900 
0902 
OFFS 


9880 
83 80 
OF 85 
131D 
12EE 
0186 
11F3 


8A 80 
8757 
9B 80 
B3 80 


118BC 


3A18 
12Fe 
O21C 
12F6 


11BD 
OA8C 


11BE 


11BF 
OA8C 


1171, 


110 
OA8C 
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T22 
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438 
<DOUT 


HRS ASSEMBLER 5.05 PAGE 0040. 


RANGE IN WORDS 
TRANSMIT BUFFER ADDRESS 


TEST CURRENT LOOP ASYNCHRONOUS 


$R4,+$B1 LOAD ID TYPE INTO $R4 

$R4e<ASYNC CHECK TO SEE IF ALREADY DONE 

>T20A 

>T19A 

$ . 

$R4e=X"3A18° PUT IN SYNC. CHARACTER TO TEST 
SR4e<LCT5S SYNC. LINE TYPES 

SR4,=X"*21C8 SET LCT SYNC. FLAG 

SR44<LCSSYF 

$R7 425 NUMBER OF 30 MS DELAY FOR 800 BAUD 


TEST SYNCHRONOUS (3A AS SYNC. 


$B1/<SYNC 
$B3,<DTALOP 


>T21 
<wCP1 
<LCTS 
438 
<DOUTI 


TEST BI-~SYNCHRONOUS LINES (3A AS SYNC. 


CHAR.) 


LOAD LINE TYPE 
LOOP SUBROUTINE 


CHAR.) 


$R44+381 LOAD ID TYPE INTO $R4G 
$R446<BISYNC CHECK TO SEE IF ALREADY DONE 
>T22 

>QAS” 


$B1e<SYN188 
$B34<DTALOP 


>T23 
<wceP1 
<LCT5 
438 
<DOUT1 


TEST WIDEBAND 301/303 (3A AS SYNC. 


TEST MIL 188 SYNCHRONOUS (3A AS SYNC. CHAR.) 


LOAD LINE TYPE 
LOOP SUBROUTINE 


CHARACTER) 


<WDBFG SET BROADBAND FLAG 
=$R7 
$B1,<W0B3 LOAD ADDRESS OF LINE TYPE 


$B834<DTALOP 


LOOP SUB-ROUTINE 


ve a MR RE Gk ot BEY Di 


TITLE DCMVA 


001790 
001791 
001792 
001793 
001794 
001795 
001796 
001797 
001798 
001799 
001800 
001801 
001802 
001803 
001804 
001805 
001806 
001807 
001808 
001809 
001810 
001811 
001812 
001813 
001814 
001815 
001816 
001817 
001818 
001819 
001820 
001821 
001822 
001823 
001824 
001825 
001826 
001827 
001828 
001829 
001830 
001831 
001832 


001833 
001834 
001835 
001836 
001837 


O7E5 
O7E6 
O7E? 
O7£8 
O7E9 


O7EA 
O7E8B 
O7ED 
O7EE 


O7EF 
O7F1 
O7F3 
O7F4 
O7FS5 
O7F6 
O7F? 


O7F8 
O7F9 
O7 FB 
O7FC 


O7FD 
O7FF 


0800 
0801 


0803 
0805 
0806 
0807 
0808 
O80A 
080C 
O80D 


OF 85 
1338 
12EE 
0186 
11 £3 


C871 
c900 
0902 
OFFS 


9B 80 
B3 80 
OF 85 
1338 
12EE 
01 B6 
11€3 


C871 
c900 
0902 
OFF5 


8700 
83 82 


8A D3 
C380 


C380 
8205 
1000 
05 03 
F380 
C380 
5983 
F380 


111 


17C2 
OA8C 


11¢3 


1170 


ODIE 


Od25 


O0C2 
0D28 


O0C2 


07/28/78 


1733.9 edt 


* 
* 
zk ke ke ke ke 
* 
x 


TSTF3 


Fri 


TEST BIW-SYNC. 


TEST WIDEBAND V35 (3A AS SYNC. CHAR.) 


TEST BI-SYNC., 


* 


>T33A 
<wcP7 
<LcTs 
438 

<DOUT 


HRS ASSEMBLER 


$R44+$81 
$R44<W0838 


aT SS. 
>T23A 


$B14<W 
$B34<D 
>T34A 
<wCP?7 
<LCTS 
438 
<DOUT 


DBV35 
TALOP 


$R44+$81 


$R4e6<W 
>7T34 
>7332 


<STPFG 
$B2 


x k& * 


STOP I/0 


=$R3 
$B44<S 


DBV5B 


rr ef 


CHECK ROUTINE 


TCR 


$B4e<INXT 
=$R5,=2°1000° 


>TSTFS 
$B7 » <E 


RDB 


$B4<INRG 


BR54>T 
$B7 4 <E 


STFS 
RDB 


5.05 


PAGE 


0041 


WIDEBAND/301/303 (3A AS SYNC. CHAR.) 


LOAD ID TYPE INTO $R4& 
CHECK TO SEE IF ALREADY DONE 


LOAD ADDRESS OF LINE TYPE 


WIDEBAND V35 (3A AS SYNC. 


CHAR.) 


LOAD ID TYPE INTO SR4& 
CHECK TO SEE IF ALREADY DONE 


CLEAR STOP I/0 FLAG 


xk & we & k& k& & & 


CHANGE TO TRASMIT SIDE OF LINE 


STOP I/0 


INPUT NEXT STATUS 


CHECK STATUS COMPLETE 


ERRORS 


INPUT RANGE 


STATUS NOT COMPLETE 


ERROR: RANGE 1S EQUAL TO ZERO 


TITLE DCMVA 


001838 
001839 
001 840 
001841 
001842 
001843 
001844 
001845 
001846 
001847 
001848 
001849 
001850 
001851 


001852 
001853 
001854 
001855 
001856 
001857 
001858 
001859 
001860 
001861 
001862 
001863 
001864 


001865 
001866 
001867 
001868 
001869 
001870 
001871 


001872. 


001873 
001874 
001875 
001876 
001877 
001878 
001879 
001880 
001881 
001882 
001883 


O80F 
0811 
0812 
0814 
0816 
0817 
0819 
0818 
0810 
O81E 


0820 
0822 
0824 
0825 
0826 
0827 
0829 


O82A 
0828 
0820 


O82E 
0830 
083e 
0834 
0835 


0836 


0838 
0839 
0838 
0830 
O83F 
0840 


0841 


0843 
O845 
0847 
0848 
O84A 
0848 


3B 00 
88 D3 
DF OO 
89 80 
0914 
C380 
C380 
D970 
OA ?7C 
C380 


C800 
C380 
8055 
0054 
0703 
F380 


OF DC 


7C€ 03 
D3 80 
OF D4 


C800 
C380 
8000 
0054 
0703 


F380 


BADS 
C800 
C380 
8000 
0054 
0703 


F380 


DF OOD 
E380 
5E10 
DF OO 
SE 20 
DFOO 


O82E 


176C 
1171 


0d25 
0D28 
0220 
ODE 


1144 
0095 


OOBA 


0D63 


113F 
0095 
1109 


ODBA 


113F 
OD95 
11¢9 


ODBA 


1160 
0887 


O84F 


0858 


07/28/78 


1733.9 edt Fri 


TST F4 


STIQ3 


TSTF4A 


QT2 


QT1 


BEVN 
DEC 
STR 
CMZ 
BE 
LNJ 
LNJ 
CMR 
BAG 
LN 


LOR 
LNA. 
10 


BIOT 
LNJ 
B 


LDV 
LNJ 
B 


CHECK RECEIVED DATA 


LOR 
LNJ 
10 


BIOT 


LNJ 


INC 
LOR 
LNJ 
10 


BLOT 


LNJ 


STR 
LNJ 
ADV 
STR 
ADV 
STR 


HRS ASSEMBLER 5,05 


S$R3e<TSTESA . 


=$R5 
BRSOe<TP1 
<WOBFG 
>STIQ2 

$B4 6<INXT 
$B4e<INRG 
$R5e=X'220' 
>ST1IQ3 
$B44<STCR 


$R4,7<FIS 
$B4e<CGSCH 
=$R5SF=SR4 


>ST1IQ4 
$B74<ERMB 
>STIQs 


$R74=3 
$B54<TDLAY 
>ST1Q1 


SR4e<FOCC 
$84 6<CGSCH 
<BIT7,=$R4 


>aQT2 
$B74<ERMB 


=$R3 
SR4<FOCC 
$B44<CGSCH 
<BIT7s=3R4 


>QT1 
$B7 4 <ERMB 


SRS e<TP2 
$B6e<BASE 
$R57=16 
$R5e<TSTF2B 
SR5e=X4* 20% 
$RSe<TSTF8B 


PAGE 0042 


IF EVEN BOTH SIDE OF THE LINE SHUT-OFF 
CHANGE $R3 TO RECEIVE SIDE OF THE LINE 
STORE XMIT RANGE RESIDUE 

SEE IF BROADBAND LINE 

SHUT RECV. LINE OFF AFTER 70 TRANSFERS 
INPUT NEXT STATUS 
INPUT RANGE 

SEE ITF 166 TRANSFERS HAVE BEEN DONE 

IF DONE 

STOP 1/0 ON RECV. 


INPUT STATUS 


TIME DELAY BEFORE SHUTTING OFF RECEIVE 


CCB RESET FOR REC 


ERROR: I/0 WAS NAK*ED 


CCB RESET FOR TRANSMIT 


ERROR: 1/0 WAS NAK*ED 


STORE RECEIVE RANGE RESIDUE 
LOAD $R5 WITH LCT BASE 


ras eats Veiiadeen ogansizitey nen sialon vin elit eid hil anti siedssemn Athen! Darth eet ee et ta Ea ele ere btw BT pad bac stE L aly am AE Daneel LAT ll tote hee aed gt) Saha Ln Ma A INIT ae duniie-s ea aston aries @rumedveromert amma 


TETLE DCMVA 07/28/78 1733.9 edt Fri HRS ASSEMBLER 5.05 PAGE 0043 

001884 084d £380 OD75 LNJ $B6e<ROLCT READ LCT 
001885 O84F 0000 TSTF2B DC 0 ADDRESS 
001886 0850 0002 DC 2 
001887 * 
001888 0851 8980 1173 CMZ <LCTV 
001889 0853 0903 BE >TSTF7K 
001890 0854 F380 ODC2 LNJ $B7/<ERDB ERROR: RECV. LCT STATUS NOT CLEAR 
001891 k 4 
001892 0856 €380 0075 TSTF7K LNJ $B64<ROLCT READ LCT 
001893 0858 0000 TSTF8B DOC 0 : 
001894 0859 0002 DC 2 
001895 * 7 
001896 O85A 8980 1173 CMZ <LCTV CHECK LCT STATUS IS CLEARED 
001897 O85C 0903 BE >TSTF2 
001898 085d F380 ODC2 LNJ $B7e<ERDB ERROR: LCT STATUS IS NOT CLEAR 
001899 O85F 9800 1166 TSTF2 LOR $R1e<RANGE CALCULATE RANGE OF GOOD DATA TO BE CHECK 
001900 0861 9FO00 115C¢ STR SR1e<FBRG 
001901 0863 1001 SOL $R161 CHANGE TO BYTE RANGE 
001902 0864 9200 116¢ SUB $R1-<TP1 
001903 0866 1041 SOR $R141 CHANGE TO WORDS 
001904 0867 88D1 DEC =$R1 
001905 0868 9F00 1166 STR $R14¢<RANGE 
001906 * ; 
001907 O86A 8980 12F6 CMZ <LCSSYF CHECK FOR SYNC LINE 
001908 086c 0917 BE >TSTF4C 
001909 086d 1£04 ADV $R1024 
001910 O86E - C800 116C¢ LOR $R4,<TP1 SYNC LINE CHECK FOR LINE MARKING 
001911 0870 c200 116d SUB SR4e<TP2 
001912 0872 4041 2 SOR $R451 
001913 0873 CA51 7 ADD $R4,=$R1 
001914 0874 4EF9 ADV SR4e-7 
001915 0875 cCFOO 116D STR SR4e<TP2 
001916 0877 C870 AAAA LDR $R4e=Z2'AAAA® LINE MARKING DATA 
001917 0879 C910 1¢00 TSTFSA CMR SR4e<DIN.SR1 
001918 087B 0903 BE >TSTFS 
001919 O87C £380 ODC2 LNJ $B7e<ERDB ERROR: SYNC. LINE NOT MARKING WITH XMIT OFF 
001920 O87E 8AD1 TSTFS INC =$R1 j 
001921 O87F 9900 116D CMR SR1e<TP2 SEE IF ALL MARKING DATA CHECK 
001922 0881 0882 BAGE >TSTF4C 
001923 0882 OFF7 B >TSTFSA 
001924 * 
001925 0883 C800 1222 TSTF4C LDR SR46<DFLT CHECK REMAINING DATA IS DEFAULT (5555) 
001926 0885 1€07 ADV $R1-=7 
001927 0886 c¢c910 1C¢00 TSTF4D CMR $R4e<DINSR1 
001928 0888 0903 BE >TSTF4E 
001929 0889 F380 ODC2 LNJ $B7e<ERDB ERRORSRECEIVE DATA IN NO DATA AREA 
001930 O88B 8AD1 TSTFGE INC =$R1 
001931 O88cC 9900 115C CMR $R149<FBRG 

O88E 0878 BAL >TSTF4D 


001932 


TITLE DOCMVA 


001933 
001934 
001935 
001936 
001937 
001938 
001939 
001940 
001941 
001942 


.001943 


001944 
001945 
001946 
001947 
001948 
001949 
001950 
001951 
001952 
001953 
001954 
001955 
001956 
001957 
001958 
001959 
001960 
001961 
001962 
001963 
001964 
001965 
001966 
001967 
001968 
001969 
901970 
001971 
001972 
001973 
001974 
001975 
001976 
001977 
001978 
001979 
001980 
0019871 


O88F 


0891 
0893 
0895 
0897 
0899 
0898 
089D 
O89F 
08A1 
O8A2 
O8A4 


O8A6 
O8A8 
O8AA 
O8AB 
O8AC 
O8AD 
O8AE 


O8AF 
08B1 
08B3 
08B4 
0885 
08B6 
08B7 


0888 
0889 
0888 
O8BC 


OF 80 


C870 
CFOO 
B3 80 
8700 
8A 80 


' 8A 80 


C870 
CFOO 
7006 
C870 


CFOO 


9B80 
83 80 
OF 85 
132C 
12 F8 
00 3F 
11€3 


9B 80 
B3 80 
OF 85 
132C 
12F8 
00 3F 
11€3 


C871 
¢900 
0902 
OFFS 
08 8D 


0853 


4A20 
1349 
OBA6 
1313 
1171 
116A 
0210 
12 FF 


OF18 
12FD 


11BA 
OA8C 


1188 
OA8C 


11BC 


07/28/78 


ASSEMBLER 5.05 
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CHECK FINAL GOOD DATA IN DTALOP 


CLEAR ALL TEST FLAGS 


SET UNDERRUN AND OVERRUN TEST FLAG 


NUMBER OF 30 MS TIME DELAY FOR TRANSFER 
SET LINE SPEED FOR ASYC,. LINES 


TEST ASYNCHRONOUS LINES WITH OLD BAUD RATES 
9600 BAUD» WITH 1 STOP BIT 


STORE ADDRESS OF LINE TYPE 
GO TO LOOP SUB-ROUTINE 


ADDRESS TABLE FOR BLOCK WRITE 
LCT TABLE 
RANGE IN WORDS 


TEST ASYCHRONOUS LINES WITH NEW BAUD RATES 


WITH 1 STOP BIT 


LOAD LINE TYPE 
GO TO LOOP SUB-ROUTINE 


ADDRESS TABLE FOR BLOCK WRITE 
LCT TABLE 
RANGE IN WORDS 


TEST CURRENT LOOP ASYNCHRONOUS 


LOAD ID TYPE INTO SR4 
CHECK TO SEE IF ALREADY DONE 


1733.9 edt Fri HRS 
B <JIP4 
* 
* 
* 
* 
* 
* UNDERRUN AND OVERRUN TEST 
* 
UORNTH LOR $R4,=A'J * 
STR $R4 eo <ERMG+1 
LNJ $B34<CLFG 
CL <LCT&FG 
INC <WOBFG 
INC <RUNFG 
LOR $R44=X'210'° 
STR SR4,<LCTOTF 
LDV $R7 9 =6 
LDR S$R452=X°F18* 
STR $R46<LCT6S 
* 
* 
* 
* 
LAB $B1/<ASYN 
LNJ $B34<DTALOP 
B >T24 
DC <WwCP4 
DC <LCT6 
DC (DFLT-DOUT) 
oC <DOUT 
* 
* 
* 19200 BAUD» 
* 

T24 LAB $B1e<ASYN1 
T242 LNJ $B34<DTALOP 
B >T25 
dC <weP4 
DC <LCT6 

DC (DFLT-DOUT) 
dC <DOUT 

* 

® 

* 

T25 LDR $R4,+$B1 
CMR SR4e<ASYNC 
BE >T252 
B >T242Z 

7252 EQU $ | 


Kaen eb 


TITLE DCMVA 


001982 
001983 
001984 
001985 
001986 
001987 
001988 
001989 
001990 
001991 
001992 
001993 
001994 
001995 
001996 
001997 
001998 
001999 
002000 
002001 
002002 
002003 
002004 
002005 
002006 
002007 
002008 
002009 
002010 
002011 
002012 
002013 
002014 
002015 
002016 
002017 
002018 
002019 
002020 
002021 
002022 
002023 
002024 
002025 
002026 
002027 
002028 
002029 
002030 


O8BD 
O8BF 
08C1 
08C3 
O8C5 
O8C?7 


08C8 
O8CA 
O8cc 
O8CD 
O8CE 
O8CF 
0800 


08D1 
O8D2 
O8D4 
0805 


O8D6 
0808 
O8DA 
0808 
O8DC 
O8DD 
O8DE 


O8DF 
O8E&1 
O8E3 


O8ES 


O8E?7 
O8E9 
O8EA 
O8EB 
O8EC 
O8ED 


8700 
F870 
FF OO 
F870 
FFOO 
7C€ 40 


9B 80 
B3 80 
OF 85 
132C 
12 F8 
OO 2F 
11F3 


C871 
c900 
0902 
OFFS 


9B 80 
B3 80 
OF 85 
132C 
12 F8 
00 2F 
11 °3 


8A 80 
C870 
CFOO 
9B 80 
B3 80 
OF 85 
1333 
1308 
OO 3F 
11€3 


1171 
401D 
12FF 
1618 
12FD 


178) 
CA8C 


11BE 


11BF 
OA8C 


1171 
O11E 
1313 
11¢0 
OA8C 


07/28/78 
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QA6 


T2? . 


~~ &+ £ & & 


CMR 


HRS ASSEMBLER 


<WOBFG 
$R74=2°401D' 
SR7/<LCTOTF 
$R77=2°1618' 
$R74<LCTO6S 
$R7e=X'40* 


TEST SYNCHRONOUS LINES 


$B14<SYNC 
$83,<DTALOP 
>T26. 

<wcP4 

<LCT6 
CDFLT-DOUT1) 
<DOUTT 


TEST BI-SYNCHRONOUS LINES (16 AS SYNC. 


$R4 +381 
$R4/<BISYNC 
>T27 

>QA6 


TEST MIL 188 SYNCHRONOUS (16 AS SYNC. 


$B14<SYN188 
$B34<DTALOP 
>T28 

<wCP4 

<LCT6 
COFLT-DOUT1) 
<DOUT1 


TEST WIDEBAND 301/303 (3A AS SYNC. 


<WDOBFG 
$R4,=X*11E° 
SR46<LCTBFG 
$B1<WDB3 
$B346<DTALOP 
>T31A 

KWCP6 

<LCT8 
CDFLT-DOUT) 
<DOUT 


TEST BI-SYNC. WIDEBAND 


5205 PAGE 0045 


STORE SYNC. CHAR. INTO LCT TABLE 
NUMBER OF 30 MS TIME DELAYS 
(16 AS SYNC. CHAR.) 


LOAD LINE TYPE 
GO TO LOOP SUB-ROUTINE 


ADDRESS TABLE FOR BLOCK WRITE 
LCT TABLE 

RANGE IN WORDS 

CHAR.) 


LOAD ID TYPE INTO $R4 
CHECK TO SEE IF ALREADY DONE 


CHAR.) 


LOAD LINE TYPE 
GO TO LOOP SUB-ROUT INE 


ADDRESS TABLE FOR BLOCK WRITE 


LCT TABLE 
RANGE IN WORDS 


CHARACTER) 
SET LCT FLAG FOR OVERRUN 


LOAD ADDRESS OF LINE TYPE 
LOOP SUB-ROUTINE 


301/303 (3A AS SYNC. CHAR.) 


TITLE DCMVA 07/28/78 1733.9 edt Fri HRS ASSEMBLER 5.05 PAGE 0046 


002031 * 

002032 OQ8E€E C871 T31A - LOR $R46+$8B1 LOAD ID TYPE INTO $R4 

002033 O8EF c900 11¢1 CMR $R4,<WDB38 CHECK TO SEE IF ALREADY DONE 
002034 O8F1 0902 BE >T31 

002035 O8F2 OFFS B >T482 

002036 * 

002037 * TEST WIDEBAND V35 (3A AS SYNC. CHAR.) 

002038 * 

002039 O8F3 9880 11¢2 T31 LAB $B146<WDBV35S LOAD ADDRESS OF LINE-TYPE 

002040 O8F5 B380 OA8C T312 LNJ $B35e<DTALOP 

002041 O8F7 OF8S B >T32A 

002042 O8F8 1333 DC <WCP6 

002043 O8F9 1308 dC <LCT8 

002044 O8FA O03F DC (DFLT-DOUT) 

002045 O8FB 11€3 oC <DOUT 

002046 * 

002047 * TEST BI-SYNC. WIDEBAND V35 (3A AS SYNC. CHAR.) 

002048 * 

002049 O8FC C871 T32A LDR $R44+4+3B1 LOAD ID TYPE INTO $R4 

002050 O8FD ¢900 11Cc¢3 CMR $R4e<WDOBV5B CHECK TO SEE If ALREADY DONE 
002051 O8FF 0902 BE >T32 

002052 0900 OFFS B >T312 

002053 , * 

002054 0901 8980 1171 T32 CMZ <WOBFG 

002055 0903 08Cs BAL >T49 

002056 0904 8700 1171 CL <WDBFG 

002057 0906 8880 1171 DEC <WDBFG 

002058 0908 C870 OFTE LDR SR4e=X*FIE° 

002059 Q90A CFOO 1313 STR $R4e<KLCTBFG 

002060 0O90C OF80D O8ES B <T48 

002061 O90E 8700 1171 T49 CL <WDOBFG 

002062 0910 8700 116A CL <RUNFG 

002063 0912 8700 1313 CL <LCT8FG 

002064 0914 8382 JMP $B2 

002065 * 

002066 * . 
002067 ce er i i” a eo 
002068 * 

002069 * UNDERRUN AND OVERRUN CHECK ROUTINE 

002070 * ne 
002071 0915 88D3 RUNCK DEC =ER35 ep 
002072 0916 €380 0887 LNJ $B6<BASE LOAD $R5 WITH LCT BASE ADDRESS Mi” 
002073 0918 SE3C ADV BRS5Se=X"*3C' 

002074 0919 odbF0O 0940 STR BERS e<RNCKI 

002075 * 

002076 0918 8980 1171 CMzZ <WOBFG 

002077 O91D O8QOF BAL >RNCKS 

002078 O9TE C800 1144 LOR S$R46<FIS 


002079 O920 C380 0095 LNJ $B46<CGSCH INPUT STATUS TO CHECK DATA 
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002080 0922 8055 10 =$R5Z=5R4 SERVICE ERROR (BIT2) SET 
0923 0054 
002081 0924 0703 BIOT >RNCKGA 
002082 0925 £380 ODBA LNJ $B7-<ERMB ERROR: I/0 NAK*ED 
002083 0927 82D5 RNCK4A LB =$R5,/22'2000' 
0928 2000 
002084 0929 0503 BBT >RNCK4S ees 
002085 O92A F380 ODC2 LNJ $B74<ERDB ERRORS DATA SERVICE ERROR BIT NOT SET ON OVR 
002086 092C 8AD3 RNCK4 INC =$R3 CHECK XMIT DATA SERVICE ERROR 
002087 092d 8980 1171 CM2 <WDOBFG 
002088 O92F OAOF BAG >RNCKS 
002089 0930 C800 1144 | LDR $R4e6<FIS 
002090 0932 ¢380 0095 LNJ $84<CGSCH 
002091 0934 8055 10 =$R5-=5R4 
0935 0054 
002092 0936 0703 BIOT >RNCK4B 
002093 0937 F380 ODBA LNJ $B72<ERMB ERROR: I/0 NAK*ED 
002094 * 
002095 0939 8205 RNCK4B LB =$R5,=2' 2000? 
093A 2000 
002096 0938 0503 BBT >RNCKS 
002097 O93C £380 OnC2 LNJ $87/<ERDB ERROR: DATA SERVICE ERROR BIT NOT SET ON UDR 
002098 O93E £380 0075 RNCKS LNJ $B6e<RDLCT READ LCT , 
002099 0940 ocdnd RNCK1 DC 0 
002100 0941 0002 DC 2 
002101 * 
002102 0942 8980 1171 CMZ <WDBFG CHECK FLAG 
002103 0944 OQ80A BAL >RNCKO 
002104 0945 8280 1173 LB <LCTV, 2240200" 
0947 0200 
002105 0948 050¢ 8BT >RNCK6 
002106 0949 F380 ODC2 LNJ $B7%<ERDB ERROR: OVERRUN FAIL TO SET BIT IN LRS 
002107 0948 8980 1171 CMz <WOBFG CHECK FLAG TO TEST UNDERRUN BIT 
002108 094d 0987 BNE >RNCK6 
002109 * 
002110 O94E 8280 1173 RNCK9O tB <LCTVs=2'0100" 
- 0950 0100 
002111 0951 0503 BBT >RNCKS . 
002112 0952 F380 ODC2 LNJ $B74<ERDB ERROR: UNDERRUN FAIL TO SET BIT IN LRS 
ae 002113 0954 OF80 OBAO RNCK6 8B K<JPSA 
{ 002114 : * 
002115 * 
002116 Be as ak Fee see Rt Aa ee ee ee ee Ne Dey ay a ke ee Be ce eee lee Ces aes ce tee ee es see «Me el ee. ee, ce 
002117 x 
002118 * LOOP DSC INTO DSS WITH CABLE LOOP 
002119 * 
002120 ss 
002121 * THE SIGNALS ARE TIED IN ACCORDING TO THE FOLLOWING CHART: 
002122 * 


TITLE DCMVA 


002123 
002124 
002125 
002126 
002127 
° 002128 
002129 
002130 
002131 
002132 
002133 
002134 
002135 
002136 
002137 
002138 
002139 
002140 
002141 
002142 
002143 
002144 
002145 
002146 
002147 
002148 
02149 
002150 
002151 
002152 
002153 
002154 
002155 
002156 
002157 
002158 
002159 
002160 
002161 
002162 
002163 
002164 
002165 
002166 
002167 
002168 
002169 
002170 
002171 


0956 
0958 
O95A 
095C 
O95E 
0960 
0962 
0964 
0966 
0968 
O96A 
0968 


096D 


O96F 
0971 


0973 
0975 


0977 
0979 


C870 
CFOO 
B380 
8700 
9B 80 
9F 80 
9880 
9F 80 
C870 
cFOO 
4C€ 08 
CFOO 


F870 


9B 80 
B3 80 


9B80 
B380 


9B 80 
9F 80 


4B20 
13A9 
OBAG 
1160 
127A 
OAO5 
12A3 
OA08 
FC1D 
1306 


116D 


COFA 


11BA 
09C3 


1188 


09C3_ 


127E 
QAO05 
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$ $ $ $ $ $ 
$ DSS SASYNCHRONOUSSSYNCHRONOUS $ BROADBAND $ BROADBAND $ 
$ $ $ &® MIL 188 $ 301/303 $ v35 $ 
en. See Re ee. eee mn eee. Seek Set CEE Ree Se Ove RARE 
$ $ $ $ $ $ 
$ OUT CKT 1 $ IN CKT 1 $ IN CKT 1 $ IN CKT 4 $ IN CKT 1 $ 
$ $ $ $ $ IN CKT 4 $ 
; SOR PRR ROT. AES ROSEN. Pee ee EEE eet ee een SRNR? 
$ $ $ $ $ $ 
$ OUT CKT 2 $ IN CKT 2 $ IN CKT 2 $ IN CKT 1 $ IN CKT 2. $ 
$ $ IN CKT 3 $ IN CKT 3 $ IN CKT 2 $ IN CKY 3 $ 
$ $ $ $ IN CKT 3 $ $ 
Bee ee eed Ree ee ee ee a , eee aE 6 Nee a ___8 
$ $ ' $ $ $ $ 
$ OUT CKT 3 $ IN CKT 4 & --- $ ---- $ a---= $ 
$ 7 $ IN CKT 5 $ $ $ $ 
: Se RS nee , ee ee : eee ee Bi et , ne a er $ 
$ $ $ $ $ $ 
$ OUT CKT 4 $ --- $ IN CKT 4 $ ---- $ ~--~ $ 
Sas aga eto ee eh eso et 88 ate ea cer a Boe eee ee ie ee ele ats ae 
BLK LDR SR4e5A'K ' 

STR $R4 oe <ERMG+1 

LNJ $83 6<CLFG CLEAR ALL TEST FLAGS 

CL <MASK i> 

LAB $B81/<TLTBLA PUT ADDRESS OF SHOULD BE TABLE IN ZVSC 

STB $B1e<LOPD7+4+S5AF , 

LAB $B14<C4 PUT ADDRESS OF RANGE IN ZVSC 

STB SB1 6 <LOPD7+44+4%SAF 

LDR SR45=Z°FC1D' 

STR SR4e<LC7SM SET MASK FO ASYCe. LINE 

LDV $R4, 28 SET RANGE FOR CHECK ROUTINE 

STR SR4e<TP2 

LOR $R7 42250 LOAD $R7 WITH NUMBER OF 30MS DELAY 

LAB $B1-<ASYN LOAD $B1 WITH ADDRESS OF LINE TYPE 

LNJ $83-<LOPDS BRANCH TO LOOP DSS INTO DSC AND CHECK 

LAB $B16<ASYN1 LOAD ADDRESS OF LINE TYPE. 

LNJ $B34<LOPDS 

LAB $B1/<TLTBLC STORE SHOULD BE ADDRESS FOR 2VSC 

STB $B1¢<LOPD74+44+S5AF 
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002172 0978 9880 11BC LAB $B812<ASYNC LOAD ADDRESS OF LINE TYPE 
002173 097D 8380 09¢C3 LNJ $B3,<LOPDS 
002174 * 
002175 O97F 9880 1282 LAB $B81/<TLTBLS 
002176 «HH 
002177 *H 
002178 0981 c800 1149 LOR $R4e<TEST DON*T CHECK RING INDICATOR IF *D* OR “M° 
002179 0983 4044 CMV SR4AX'44G' 
002180 0984 0905 BE >LPCB1 
002181 0985 4D4D CMV $R44X*4D' 
002182 0986 0987 BNE >LPCB2 
002183 0987 9880 1286 LAB $B1,/<TLTBLM 
002184 0989 C870 EDED LPCB1 LDR $R44=2°EDE0* 
002185 098B cFOO 1160 STR SR46<MASK 
002186 +H 
002187 HH 
002188 0980 9F80 OADS LPCB2 STB $B1-<LOPD7+4+$AF 
002189 O98F C870 F81D LOR $R4e=2°F81D" CHANGE MASK FOR SYNC. LINES 
002190 0991 cFOO 1306 STR $R4e<LC7SM 
002191 0993 9880 118€ LAB $B1,/<BISYNC 
002192 0995 B380 09¢3 LNJ $B3,<LOPDS 
002193 * 
002194 0997 9880 1180 LAB $B14<SYNC 
002195 0999 8380 09C3 LNJ $B34<LOPDS 
002196 * 
002197 0998 9880 118F LAB $B14<SYN188 
002198 0990 8380 09C¢3 LNJ $B34<LOPDS 
002199 * 
002200 * TEST WIDEBAND 301/303 
002201 * 
002202 O0O99F C870 FO1D LOR $R4,=Z2°FO1D' SET CCP MASK FOR BROADBAND LINES 
002203 O9AT CFOO 1306 STR SR4e<LC7SM 
002204 O9A3 4¢€04 LDV $R4,=4 SET RANGE FOR CHECK ROUTINE 
002205 O9A4 CFOO 116D STR $R4<TP2 
002206 O9A6 9880 12A2 LAB $B14<C2 CHANGE RANGE IN ZVSC 
002207 O9A8 9F 80 0AD8 STB $B1+<LOPD7+4+4*S$AF 
002208 O9AA 9880 128A LAB $B14<TLUWB3 SET ADDRESS OF SHOULD BE FOR ZVSC 
002209 O9AC 9F8O DADS STB $B1/<LOPD7+4+$AF 

_ 002210 O9AE 9880 11C90 LAB $B1,/<WDB3 

; 002211 0980 B380 09¢3 LNJ $B3,<LOPDS 

( 002212 * 

002213 * TES BI-SYNC. WIDEBAND 31/303 
002214 * 
002215 0982 9880 11C1 LAB $B1,/<WD0B3B 
002216 0984 8380 09C3 LNJ SB34<LOPDS 
002217 * 
002218 * TEST WIDEBAND V35 
002219 * 


002220 0986 9880 128¢ LAB —s- $B. 6<TLUV35 PUT ADDRESS IN FOR ZV$C 


TITLE DCMVA 


002221. 


002222 
002223 
002224 
002225 
002226 
002227 
002228 
002229 
002230 
002231 
002232 
002233 
002234 
002235 
002236 
002237 
002238 
002239 
002240 
002241 
002242 
002243 
002244 
002245 
002246 
002247 
002248 


002249 


002250 
002251 
002252 
002253 
002254 
002255 


0988 
O9BA 
O9BC 


O9BE 
09C0 
09C2 


09C3 
09C5 


09C6 . 


09C8 
09C9 
O9CA 


O9CC 
O9CE 
09D0 


0902 
O9D4 
0906 
O9D7 
0908 
09D9 
O9DA 


O09DB 
O9DD 
O9DF 
O9EO 
O9E1 
O9E2 
O9E3 


O9E4S 
O9E6 


O9E?7 
O9E9 


9F 80 
9B 80 
B380 


9880 
B380 
8382 


9F 80 
8753 
D380 
0000 
8383 
C380 


C570 
C470 
CFOO 


FBCO 
D380 
OF 80 
OF 6A 
1331 
12A6 
1151 


FBCO 
D380 
OF 80 
12 8F 
1332 
12A7 
1151 


D3 80 
1302 


C800 
D380 


OA05 
11C€2 
09¢3 


11¢€3 
09C3 


09C8 


OD4F 


ODOA 


FF 80 
0040 
1151 


0003 
0000 


0003 
0000 


0038 


1160 
0099 
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STB 
LAB 
LNJ 


LAB 
LNJ 
JMP 


* WRITE 


CALL 


LNJ 
DC 


LDR 
LNJ 
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$B1e<LOPD7+4+3 AF 
$B1,<WDBV35 
$B34<LOPDS 


TEST BI-SYNC. WIDEBAND V35 
$B1 »<WOBV5SB 


$B34<LOPDS 
$B2 


a 


LOOP AND TEST OSC INTO DSS LOOP 


$B1s6<LOPD1 STORE ADDRESS OF LINE TYPE 


=$R3 

$B54<FLN FIND LINE ON 

SAF 40 LINE TYPE ADDRESS 
$B3 


$B44<GENITZ GENERAL INITIALIZE 


CHANNEL PROGRAM AND TLU TABLE INTO RAM 
SR4e=Z2'FFBO® 
$R4,=X*40° 


BR4e<CHNZ 
ZVEMLWse CHLPSeWCP5SeHX200eCHNZ 


ZVSMLWsTLUTB2,WCPSBeHX4004CHNZ 


$B54<SETLCT SEND OUT LCT LOCATIONS 
<LCT? 

SR44<TP2 LOAD $R4 WITH RANGE 
$B54<MCCB 


FORM CCB TO TRANSFER DSS INTO MEMORY 
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2 : 002256 O9E€B 1Cc00 DC <DIN 
( : 002257 O9EC 0060 DC x*60° 
a 002258 * 
002259 O9E€D C800 113F LDR SR4e<FOCC FORM I/0 CONTROL WORD 
002260 O9EF C380 0095 LNJ $B44<CGSCH FOR START 1/0 
002261 O9F1 8000 11C¢5 10 <BIT14=9R4 
O9F3 0054 
002262 O9F4 0703 BLOT >LOP D2 
002263 O9FS F380 ODBA LNJ $87 4<ERMB ERROR: 1/0 WAS NAK*ED 
002264 O9F7 D380 0063 LOPD2 LNJ $B54<TDLAY TIME DELAY 
002265 * 
002266 O9F9 C380 0D25 LNJ $B4/<INXT INPUT NEXT STATUS 
002267 O9F8 8205 LB =$R52=2'1000' CHECK STATUS COMPLETE 
O9FC 1000 
002268 O9FD 0503 BBT >LOPD7 
002269 O9FE F380 ODBA LNJ $B74<ERMB ERROR: STATUS NOT COMPLETE AFTER GNB 
002270 LOPD? CALL ZV$CoSeDIN»MASKs SeERAR 
OAQO FBCO 0003 
OA02 0380 0000 x 
OA04 OF 80 
OA0S OAOO 
OAN6 § 1€00 
OA07 1160 
OA08 QAOO 
OA09 1176 
002271 OAODA 8980 1176 CMZ- <ERAR CHECK FOR ERROR 
002272 oOaAdc 090D BE >LOP D3 
002273 OA0D D800 1178 LDR SR5e<ERARH2 PUT *is* INTO $R5S 
002274 OAOF E800 1177 LDR SROe<ERAR+1 PUT *SHOULD BE* INTO $R6 
002275 OA11 F800 1176 LDR $R7/<ERAR PUT WORD COUNT INTO $R7 
002276 OA13 F380 ODC2 LNJ $B74<ERDB ERROR: DSC DID NOT LOOP INTO DSS CORRECTLY 
002277 CALL ZVSCO CONTINUE CHECKING FOR ERROR 
0A15 FBFO 0001 
0A17 D380 0000 X 
002278 OA19 3€02 LOPD3 ADV $R3= CHANGE TO NEXT LINE 
002279 OA1IA OF80O 09C6 B <LOPD 
002280 * 
002281 * 
an 002282 Rm asttee tek ed Wei ta, yee ies. ate tee, Mes nest es Ph aks ek Sh ge ee ee es, GS ee” Ss Hy Seale Sek si went. ee cea Ta he oe 
j 002283 * 
( 002284 * TRANSMIT MARK AND SPACE TEST 
ae 002285 * 
002286 OA1C C870 4€20 XMMSL LOR SR4e=A'L * 
002287 OA1E CFOO 13A9 STR SR4,<ERMG+H1 
002288 OA20 8380 OBA6 LNJ $B34<CLFG 
002289 OA22 C870 FFO? LDR $R4,=2°FFO7? ALTER DATA 
002290 OA24 ¢FOO 11E€6 STR $R4e<D0UTtH3 
002291 OA26 8700 1160 CL <MASK 
002292 OA28 C870 081A LDR LOAD LCT WITH MARK BIT 


$R4e=X*"81A* 
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002293 OA2A 8A80 1163 INC <PARFG 
002294 OQOA2C €£B80 11BC U2 LAB $B6e<ASYNC LOAD $B6 WITH ADDRESS OF TABLE END 
002295 OA2E CFOO 1319 STR SR44<LCTOMS 
002296 OA30 7C€06 LOV SR7 4 =6 NUMBER OF 60 MS DELAY 
002297 
002298 * TEST ALL ASYNCHRONOUS LINES 
002299 * 
002300 0A31 2C€01 LDV $R2 521 LOAD INDEX 
002301 OA32 9880 118A | LAB8 $B14<ASYN 
002302 0A34 8380 OA8C U3 LNJ $B3,<DTALOP LOOP SUBROUTINE 
002303 OA36 OF8S5 B >U1 
002304 OA3? 1344 xe <weP9 
002305 OA38 1315 oC <LCT9 
002306 0A39 O005 DC 5 
002307 OA3A 117€3 DC <DOUT 
002308 * 
002309 0A38 U1 EQU $ ; 
002310 OA3B 9DD6 CMB $61,=$B6 SEE IF ALL ASYNCHRONOUS LINES TESTED 
002311 OA3C 0903 BE >uUS . = 
002312 OA3D 9BA1 LAB $B1,$B1.5R2 
002313 OA3E OFF6 8 >U3 
002314 * 
002315 OA3F C870 101A y5 LDR SR44=X'101A' LOAD LCT FOR SPACE CONDITION 
002316 OA41 C900 1319 CMR SR4e<LCTIMS CHECK IF ALREADY DONE 
002317 OA43 OIEID BNE >U2 | 
002318 OA44 8700 1163 cL <PARFG 
002319 0A46 C870 0607 LDR $R45=X"607? PUT DATA BACK TO NORMAL 
002320 OA48 CFOO 17E6 STR $R4,<D00UT43 
002321 OA4A 8382 © JmMp $B2 
002322 * 
002323 RK eR kk 
002324 * 
002325 * DATA CHECK FOR XMIT MARK AND SPACE 
002326 * 
002327 OA4B XMSCK EQU $ 
002328 OA4B 8F0O 118A SAVE <SAV2,=2'0002° SAVE $B6 
OA4D OQ002 
002329 OA4E DB80 129A LAB $BS56<XMSB LOAD ADDRESS FOR Zv$C 
002330 OASO C800 1319 LDR $R46<LCTOMS CHECK LCT TO SEE IF MARK ae, 
002331 OAS52 C970 O81A CMR SR45=X" 8A" B IF MARK TEST ff . 
002332 0A54 0903 BE >XMSCK1 | <2 
002333 OASS DB80 129€ LAB $B54<XSSB LOAD ADDRESS OF SPACE SHOULD BE sees 
002334 OAS7 DF80O OASE XMSCK1 STB SBS eo <XMSCK2444$AF STORE SHOULD BE ADDRESS FOR 2VS$C 
002335 XMSCK2 CALL ZV$CrSeDINeMASKoC4sERAR 
OAS9 FBCO 0003 ’ 
OA5B 0380 O000 X 
OASD OFB8O 
OASE OASI 


OASF 1¢€00 
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 _—_ OA60 1160 
( OA61 12A3 
oad OA62 1176 
002336 O0OA63 8980 1176 CM2 <ERAR CHECK FOR ERROR 
002337 OA65S 0900 BE >XMSCK3 
002338 OA66 0800 1178 LDR $R5e<ERARt2 PUT ‘is* INTO $R5 
002339 OA68 E800 1177 LDR SROe<ERAR+1 PUT *SHOULD BE INTO $R6 
002340 OA6A F800 1176 LDR SR74<ERAR PUT WORD COUNT INTO $R7 
002341 OA6C F380 ODC2 LNJ $B74<ERDB ERROR: TRANSMIT MARK OR SPACE ERROR 
002342 , CALL ZVv$CO CONTINUE CHECKING FOR ERROR 
OA6E FBFOQ 0001 
0470 0380 0000 x 
002343 OA?72 C870 101A XMSCK3 LDR $R46=X*101A" 
002344 OA74 c900 1319 CMR $R469<LCTOMS 
002345 OA76 0991 BNE >XMSCKS 
002346 OA77 £380 0887 LNJ $B6e<BASE LOAD $RS WITH LCT BASE 
002347 OA79 SE3C ADV $R54=60 
002348 OA7A ODFOO OA7E STR SRS e<XMSCK4 STORE ADDRESS TO READ LCT 
002349 * 
002350 OA7C E380 0D75 LNJ $B6e<RDLCT 
002351 OA7E 0000 XMSCK4 DC 9) ADDRESS 
002352 OA7F O00C2 DC 2 
002353 * 
002354 OA80 0870 FEEE LDR $RS/=Z*FEEE' LOAD $R5 WITH SHOULD BE 
002355 OA82 »d900 1173 CMR SRS e<LCTV 
002356 0A84 0903 BE >XMSCKS 
002357 OA85 F380 ODC2 LNJ $B74<ERDB ERROR: FRAMING ERROR FAILURE 
002358 OA87 8F80 118A XMSCKS RSTR <SAV22=2'0002' RESTORE $B6 
OA89 0002 
002359 OA8A OF80 OBAD B <JPSA 
002360 | * 
002361 * 
002362 RSSSHRSSSSSSSSS SSS SSSSHS SSS SSSSSSOSSSSRASSASSSSSHSSOSS SESS Sss22eqeseez2qsqsSerzeseqqooq 
002363 OA8C 8FO00 119A DTALOP SAVE <SAV3-=2°0112° SAVE %$83,-$86 
OA8E 0112 
002364 OABF 9F8O DAIS STB $B1<TG1 FOR FIND LINE ON 
002365 OA91 8753 CL =$R3 CLEAR $R3 
002366 OA92 0380 OD4F NXLT LNJ $SB5e<FLN FIND LINE ON 
002367 O0A94 000 TG1 RESV SAF .0 
a 002368 OA9S 8383 JMP $83 NO LINE ON RETURN 
( 002369 * 
002370 CALL ZVSFe/DIN/DFLT/HX200 FILL INPUT BUFFER 
OA96 FBCO 0003 
0A98 0380 0000 x 
OA9A OF 80 
OA93 1€00 
OA9C 1222 
OA9D 12A6 


002371 OA9SE C808 DAI94G LDR BR4,*<TG1 


TITLE DCMVA 


002372 
002373 
002374 
002375 
002376 
002377 
002378 
002379 
002380 


002381 
002382 
002383 
002384 
002385 
002386 
002387 
002388 
002389 
002390 
002391 
002392 
002393 
002394 
002395 
002396 


002397 


002398 
002399 
002400 
002401 
002402 
002403 
002404 
002405 


OAAO 
OAA2 
OAA3 
OAAS 
OAA7 
OAAI 
OAAA 
OAAC 
DAAD 
OAAE 
OAAF 
OAB0 
OAB2 
OAB4S 
OAB6 
OAB8 


DABS . 


0AB8 
OABC 
OABE 
OACO 
OAC2 
OAC4 
OAC6 


OAC8 
OACA 
OACC 
OACD 
OACE 
OACF 
OAD00 


OAD1 
OAD3 
OADS 
OAD6 
OAD? 
OAD8 
OADI 


OADA 
OADB 


OADD 
OADF 


OAEO 


C900 
0983 
C380 
BBC3 
C380 
DC F3 
89 80 
09 8&6 
82 D4 
00 80 
05 83 
C380 
C570 
C470 
CFOO 
CC F5 
CF 80 
CC FS 
CF 80 
DF 80 
DBCS 
DF 80 
DBCS 
DF 80 


FBCO 
D3 80 
OF 80 
OAC8 
OAC8 
12A6 
1151 


FBCO 
D380 
OF 80 
OA D1 


OA 01 


OA D1 
1151 


DC F3 
DF 80 


D380 
0000 


C800 


11BC 


0C¢18 
0001 
ODOA 


1152 


0c11 
FF 80 
0040 
1151 


OACD 
OAD6 
OACE 
0001 
OAD? 


0004 
OADS8 


0003 
0000 


0003 
0000 


OA DF 


0D38 


1136 
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DTAL 


DT1 


LPWRT 


LPWRT1 


TG2 


CALL 


LDB 
sT8 


LNJ 
RESV 


LDR 
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BR4e<ASYNC 
>DOTAL 
$B4e<SCLS 
$834%383.1 
$B44<GENITZ 
$B54+$B3 
<COUNT 

>dT1 
=$R4,=X *80° 


>0T1 

$B4e<STMD 

$R4,=2' FF80* 
$R4,=X'4Q' 
$R4o<CHNZ 

$B4+%85 
$B44<LPWRI+4+SAF 
$B44+385 

$B4 4<LPWRITt+4G4+S3AF 
$BSe<LPWRI+442%$AF 
$85,%85.1 

EBS e+<KLPWRT1T 44 42% 5AF 
$B5,385,.1 
$BSe<LPWRITF4 +3 5AF 


ZVSMLWs Seo$eHX 200-CHNZ 


ZVEMLWeSeSeSB,CHNZ 


$85+383 
$B54<TG2 


$B5/<SETLCT 
SAF 20 


SR44<FOCC 
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B IF NOT CURRENT LOOP ADAPTER 

SET CURRENT LOOP ADAPTER SPEED 

DUMMY INCREMENT OF $83 

GENERAL INITIALIZE 

GET ADDRESS TO STORE FOR ZVSMLW CHANNEL 
IF CABLE LOOP DON'T STMD 


SEE IF SECOND LINE OF CLA PAIR 


SET TEST MODE ON FIRST LINE OF CLA PAIR 
SET CHANNEL FOR ZVSMLW 

OR IN DIRECTION BIT 

STORE CHANNEL FOR ZVSLIB CALL 

LOAD AND STORE ADDRESS FOR 

ZVS$LIB CALL 


INCREMENT $85 


STORE ADDRESS FOR LCT TABLE 


SEND OUT LCT 


CCB RESET FOR REC 


TITLE OCMVA 


002406 
002407 


002408 
002409 
002410 
002411 
002412 
002413 
002414 
002415 


002416 
002417 
002418 
002419 
002420 
002421 
002422 
002423 
002424 
002425 
002426 
002427 
002428 
002429 
002430 
002431 
002432 
002433 
002434 
002435 
002436 
002437 
002438 
002439 
002440 
002441 
002442 
002443 


002444 
002445 
002446 
002447 
002448 
002449 
002450 
002451 


OAE2 
OAE4 
OAES 
OAE? 


OAE8 


OAEA 
OAEB 
OAED 
OAEF 
OAF1 
OAF2 


OAF3 


OAFS 
OAF6 
OAF8 


OAF9 
OAFB 
OAFC 
OAFE 


0B00 
0802 
0803 


0804 
0B05 
0B07 
0808 


0809 
OBOA 
0808 
OBOC 
OBOE 
0810 
0B12 
0813 
0B14 
0B16 
0B18 
0B19 


OB1A 
0B1C 


C380 
8000 
0054 
0703 


F380 


8AD3 
C800 
C380 
8000 
0054 
0703 


F380 


C803 
CF OO 
4001 


BBC3 
DC F3 
DF 80 
DF 80 


D3 80 
0000 
OC 60 


8803 
D380 
1¢€ 00 
00 60 


5C€ 01 
8AD3 
FE55 
C800 
C380 
8000 
0054 
0703 
F380 
D380 
FESS 
8803 


C800 
C380 


0095 
11¢€9 


ODBA 


113F 
0095 
11¢€9 


ODBA 


1166 


0001 


0B02 
0B58 


O0D99 


0099 


VASE 
0095 
ATES 


ODBA 
0063 


113F 
0095 
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DEC 
LNJ 
DC 
DC 


LDV 
INC 
SWR 
LDR 
LNJ 
10 


BIOT 


LNJ 
MELCO LNJ 
SWR 
DEC 


LDR 
LNJ 
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$B44<CGSCH 
<BIT7/=3R4 


>oT2 
$B7e6<ERMB 


=$R3 : 
$R44<FOCC 
$B4,4<CGSCH 
<BIT7,=3R4 


>DdT3 
$B72<ERMB 


$R4,%83 
SR4e<RANGE 
$R461 


$B34%83.1 
$B5,+$B3 
$B54<TG3 
SBS 7 <SP4TGHSAF 


$B854<MCCB 
BAF ,0 
X*60* 


=$R3 
$B54<MCCB 
<DIN 
x*60? 


$R54=1 
=$R3 
SR7/=SR5 
BR4 eo KFOCC 
$B4,<CGSCH 
<BIT1,=4R4 


>MELCO 
$B7,<ERMB 
$B5 4<TDLAY 
SR7Z=SR5 
=$R3 


SR46<FOCC 
$B46<CGSCH 
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ERRORS 1/0 WAS NAK*ED 


CCB RESET FOR TRANSMIT 


ERROR: I/0 WAS NAK*ED 


LOAD RANGE 


STORE RANGE FOR 2V$C 
CONVERT TO BYTES FOR CCB RANGE 


STORE ADDRESS FOR TRANSMIT BUFFER 
FOR CCB FORMATION 
FOR DATA CHECK CALL(ZVSC) 


FORM CCB FOR TRANSMIT 


GET RECV. CHANNEL 
FORM CCB FOR RECIEVE SIDE 


START I/0 ON XMIT SIDE TO SET 
CONFIG. AND XMIT FILL CHAR. (SYNC 


FORM I/0 FOR START 1/0 


ONLY) 


TITLE uCMVA 


002452 


002453 
002454 
002455 
002456 
002457 
002458 
002459 
902460 
002461 
002462 
002463 
002464 
002465 
002466 
002467 


002468 
002469 
002470 
002471 
002472 
002473 


002474 
002475 
002476 
002477 
002478 
002479 
002480 
002481 
002482 
002483 
002484 
002485 
002486 
002487 
002488 


002489 


OBIE 
0820 
0821 
0822 
0824 
08626 
0828 
0829 


0828 . 


0820 
OB2E 
0830 
0B32 
0833 
0835 
0837 
0B39 
OB3A 
0B38 
OB3C 


OB3E 
OBSF 
0B41 
0B42 
0B43 
0B44 
0B46 
0848 


OB4A 
OB4C 
OB4D 


OB4F 
0B51 


0853 
OBS5 
0B57 
0B58 
0859 
OBSA 
08658 
oBsc 


8000 
0054 
0703 
F380 
0380 
8980 
0903 
OF 80 
89 80 
0908 
8980 
0900 
BA D3 
OF 80 
C380 
E870 
82D5 
1000 
0503 
F380 


BAD3 
C380 
82D5 
1000 
05 03 
F380 
89 80 
0980 


89 80 
0903 
D380 


89 80 
0980 


FBCO 
D380 
OF 80 
08 53 
1¢ 00 
1160 
1166 
1176 


ECS 


ODBA 
0063 
1170 


0800 
1163 


1152 
0778 


OA4B 


0025 
1000 


OO0C2 


0025 


OdCe2 
116A 
0915 
1156 
0570 


114D 
O4CF 


0003 
0000 


07/28/78 


1733.9 edt Fri 


JP2 


JP2A 


JP2B 


JP3 


JP4A 


«AH 


CALL 


HRS ASSEMBLER 


<BIT1,=$R4 


>JP2 
$B87,<ERMB 
$B5<TDLAY 
<STPFG 
>JPZA 

<STIQ 
<PARFG | 
>JP2B 

<COUNT 

<PAR1 

=$R3 

<XMSCK 
$B46<INXT 
$R64=2'1000' 
=$R5,=2'1000° 


>JP3 
$B74<ERDB 


=$R3 
SB4e<INXT 
=$R5,=2'1000% 


>JIP4GA 
$B7,<ERDB 
<RUNFG 
<RUNCK 


<CRCFG 
>JP4C 
$B54<CRPRT 


<ARFG 
<ARCK 


5205 PAGE 0056 


TIME DELAY 
CHECK STOP 1/0 TEST FLAG 


BRANCH TO STOP 1/0 AND CHANNEL RESET TEST 


BRANCH TO CHECK THAT PARITY ERROR SET 


B TO MARK AND SPACE CHECK ROUTINE 
INPUT NEXT STATUS ON REC. SIDE 


SEE IF STATUS COMPLETE 


STATUS NOT COMPLETE ON REC. 


INPUT NEXT STATUS ON XMIT SIDE 

SEE IF STATUS COMPLETE 

STATUS INCOMPLETE ON XMIT SIDE 
BRANCH TO OVERRUN AND UNDERRUN TEST 
TEST CRC AND PARITY FLAG 

FLAG NOT SET JUST CHECK DATA 

GO CHECK CRC RESIDUE AND PARITY 


CHECK ADAPTER READY FLAG 
GO TO ADAPTER READY CHECK ROUTINE 


CHECK IF DATA LOOP CORRECTLY 


ZV$CTe+SA/DIN»-MASKsRANGESERAR 
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002490 x # 


002491 0B85D 8A80 114A INC <MLXCT INC MODEM LOOPBACK XMIT CTR 
002492 « H 
002493 +H 
002494 OBSF 8980 1176 CM2 <ERAR CHECK FOR ERROR 
002495 0B61 0913 BE >UPS 
002496 HH 
002497 xi 
002498 O0B62 8A80 1148 INC <MLECT INC MODEM LOOPBACK ERROR CTR 
002499 0864 0800 1149 LDR SRS e<TEST 
002500 0866 5D4D CMV SRS eX*4D! 
002501 0867 O90D BE >JPS SUPRESS ERROR MSG IF MODEM LOOPBACK 
002502 +H 
002503 +H 
002504 0868 »d800 1178 LOR $R5e<ERAR+2 PUT IS IN $R5 
002505 OB6A E800 1177 LDR SR6e<ERAR+H1 PUT SHOULD BE INTO S$R6 
002506 OB6C F800 1176 LDR $R7e2<ERAR PUT WORD COUNT INTO $R7 
002507 OB6E F380 ODC2 LNgJ $B7,<ERDB 
002508 CALL ZV$CO CONTINUE LOOKING FOR ERRORS 
0870 FBFO 0001 
0872 0380 0000 x 
002509 0B74 8980 1150 JPS CMZ <CHSZFG CHECK CHARACTER SIZE TEST FLAG 
002510 OB76 092A BE >JPSA IF SET CHECK HIGH ORDER DIGITS FOR ZERO'S 
002511 0877 5C08 LOV $R54=8 
002512 0OB878 »D900 1153 CMR SR5e<CS 
002513 OB7A 0926 BE >JPSA 
002514 0873 86CO 1160 CPL <MASK COMPLEMENT MASK TO CHECK OTHER BITS 
002515 CALL ZVSFeDINIsCPFLGt3/RANGE CLEAR SHOULD BE TO ZEROS 
O87D FBCO 0003 
OB7F »d380 0000 x 
0B81 OF80 
0882 1D00 
OB83 110F 
0B84 1166 
002516 CALL ZV$SC eDINIZDIN»eMASKs RANGESERAR 
0885 FBCO 0003 
0887 pd380 0000 x 
0889 OF80 
OB8A 1D00 
= 0888 1c00 
( OB8c 1160 
~ OB8D 1166 
OB8E 1176 
002517 OB8F 8980 1176 CMZ <ERAR CHECK FOR ERRORS 
002518 0891 090D BE >JP5B 
002519 0892 »p800 1178 LDR SRS 4 <ERARF2 PUT IS INTO $R5 
002526 OB94 E800 1177 LOR $R60<ERAR+1 PUT SHOULD BE INTO $R6 
002521 0896 F800 1176 LOR $R7e<ERAR PUT WORD COUNT INTO $R7 


002522 0898 F380 ODC2 LNJ $B74<ERDB ERRORS SOME HIGH ORDER BITS SET IN CHARACTER 
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002523 CALL ZVSCO CONTINUE LOOKING FOR ERRORS 

OB9A FBFO 0001 

0OB9C 0380 0000 xX 

002524 OB89E 8600 1160 JP58 CPL <MASK RESET MASK 
002525 * 
002526 OQOBAOD 8AD3 JPSA INC =$R3 FIND NEXT LINE ON OF THIS TYPE 
002527 QOB8A1 8F80 119A RSTR <SAV3,2=2'0112° RESTORE $83,486 

OBA3 Q112 | 
002528 OBA4 OF80D DA92 B <NXLT 
002529 * 
002530 * 
002531 KRSSSSSSSSPSSAST SSS SASSSHA SHS SP SSSHSSSSSSSSHSSBSSSSSSASSSSrTSSSTs2Ses222sS2Ereszs2z2 
002532 * 
002533 * CLEAR TEST FLAGS 
002534 * 
002535 OBA6&d 8700 1156 CLFG CL <CRCFG 
002536 OBA8 8700 1163 CL <PARFG 
002537 OBAA 8700 116E CL <SBIFG 
00253% OBAC 8700 1170 CL <STPFG 
002539 OBAE 8700 1171 CL <WOBFG 
002540 OBB0O 8700 1140 CL <ARFG 
002541 OB8B2 8700 1150 CL <CHSZFG 
002542 0884 8700 116A CL <RUNFG 
002543 O8B6 8383 JMP $B3 
002544 * 
002545 kSBSSSSSSASASSSSSSSPTSSS SSS SSL SSSssSSSsssStSssssssssssssssseres22eee2eer2er2r2rs 
002546 
002547 * LOAD $R5 WITH LCT BASE ADDRESS 
002548 * 
002549 0887 0853 BASE LDR $R5,=5R3 
002550 O888 5041 SOR R501 
002551 OB89 SF40 MLV $R54=X'40' 
002552 OBBA 8386 — JMP $B6 
002553 * 
002554 KSSSTSA SSS SSS SSSA STS SS SAS SS SSS SSS SSST SS SM SSSSP SAM SSSSSSSSSSSSSSSSSSSSssssss 
002555 * 
002556 * CRC GENERATOR 
002557 * 
002558 * OUTPUT ~- TAKES TABLE OF DATA AND FORMS ACCUMULATED CRC. ae 
002559 ' ONLY FOR CRC16 AND CCITT. a 
002560 lee od 
002561 * TO USE» MUST SET: ee 
002562 * R6 - NUMBER OF BITS IN CHAR, : 
002563 * R7 ~ RANGE IN BYTES 
002564 * B3 - TABLE ADDRESS 
002565 * B6 ~- ADDRESS OF CRC TYPE. 
002566 * 
002567 * 
002568 * LNJ $B4/<CRC 


Buk Gis 2000 oceania, amu a, GRE Le eat a eA rea ol ban 2 ate” araduniaingn rere ale se alesis aa 
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| 002569 * 
( é 002570 * 

y 002571 * $B3 - ADDRESS WHERE CRC ACCUMULATOR IS STORED 
002572 * $B6 - ADDRESS OF CRC TYPE 
002573 * 
002574 * $R6 ~ CONTAINS NUMBER OF BITS IN CHARACTER 
002575 * $R7 - THE NUMBER OF CRC TO BE 
002576 * GENERATED. FROM THE TABLE AT $83 
002577 * 
002578 * THE ACCUMULATED CRC 1S STORED IN LOCATION CRCAC. 
002579 * | 
002580 OB88B 8FOO 117A CRC SAVE <SAV14=2°FI9G!" 

OBBD F994 
002581 OBBE C876 LDR SR46+SB6 PUT CRC TYPE INTO $R4 
002582 OS8BF 8751 CL =$R1 
002583 OBCO 8753 CL =$R3 CLEAR $R3 FOR LONG SHIFT 
002584 O08C1 8752 CL =$R2 
002585 OBC2 8256 NEG =$R6 
002586 OB8C3 EFOO 1168 STR $R6e<TLOC STORE COUNTER 
002587 OBC5 D2FF LLH SR54$B3.+5R3 
002588 OB8C6 7001 SOL SR7 01 
002589 OBC7 8257 NEG =$R7 
002590 OBcs8 oF51 CRCA STR $R54=5R1 
002591 OBCc9 5041 SOR $R5 01 
002592 OBCA 9652 XOR- $R1,=$R2 
002593 Os8cB 2041 SOR SR201 
002594 oOBcc 1802 BEVN $R1,>CRCB 
002595 OBCD A654 XOR SR2e =SR4 
002596 OBCE 67FA CRCB BINC SR6e>CRCA 
002597 OBCF DOFF LDH $R54$B3.+5R3 
002598 O0B8D0 £800 1168 LOR SR6e<TLOC RESET CHAR. COUNT 
002599 OBD2 77F6 BINC SR7e>CRCA DO NEW CHARACTER 
002600 0803 AFOO 1155 STR $R2e<CRCAC STORE LAST CRC ACCUMULATED 
002601 O08D5 8F80 117A RSTR <SAV1,=2°F994$ RESTORE REGS. 
OBD7 F994 

002602 O8D8 8384 JMP $B4 
002603 * 
002604 KS SSS SS SS SSS SS SSSSSSSS SSS SSSSSSSSSSSSSSSSSSSSSSSse Sess SsSssesaeesaesssesezzzeessqsez 

ho 002605 * 

, 002606 * PARITY CALCULATOR 

002607 rn 

Hees 002608 * TO USE» MUST SET: 
002609 * $R7 - RANGE OF DATA IN WORDS 
002610 * $B1- ADDRESS OF DATA AFTER PARITY HAS BEEN ADDED 
002611 * $83 - ADDRESS OF DATA TO ADD PARITY ON 
002612 * PTTY - IMEANS ODD PARITY 
002613 * O MEANS EVEN PARITY 
002614 * 
002615 OBD9 8F00 117A CPAR SAVE <SAV1422 "EF DO* SAVE REGS. 
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0808 €EFDO 


0026156 OBDcC 9800 1153 LOR $R14<CS LDR $R1 WITH NUMBER TO SHIFT 
002617 OBDE 88D! DEC =$R1 
002618 OBDF 8755 CL =$R5 
002619 OBEO 8752 CL =$R2 CLEAR INDEX 
.002620 OBE1 8257 NEG =$R7 NEGATE RANGE FOR BRANCH AND INCREMENT 
002621 OBE2 C2A3 CPAR2 ULH $R44$B3.$R2 LOAD $R4 WITH HALF. WORD OF DATA BUFFER 
002622 OB8E€3 8980 1150 CM2 <CHSZFG SEE IF CHAR. SIZE TEST 
002623 OBES O90F BE >CPAR3 , 
002624 OBES 6C08 LDV $R64=8 IF 8 BIT CHAR. 00 NOT STRIP BITS 
002625 OBE7 £900 1153 CMR $REO<CS 
902626 OBE9 0908 BE >CPAR3 : 
002627 OBEA 88D6 DEC =$R6 IF 7 OR 6 BIT CHAR. STRIP FOR PARITY TO BE SE 
002628 OBEB £900 1153 CMR SRO6<CS 
002629 OBED 0904 BE >CPARS 
002630 OBEE £870 OOIF LDR SROe=X"1F! MASK TO STRIP WITH 6 BIT CHAR, 
002631 OBFO OF83 B >CPARS 
002632 OBF1 £870 OO3F CPAR4 LDR SROe=EX'3F! MASK TO STRIP WITH 7 BIT CHAR. 
002633 OBF3 C556 CPARS AND S$R4e=8R6 STRIP BIT TO CHAR SIZE MINUS PARITY BIT 
002634 OBF4S CF56 CPAR3 STR SR4e=SR6 SAVE CHAR IN $R6 ° 
002635 * 
002636 * CALCULATE PARITY FOR THE CHAR. 
002637 x 
002638 OBFS 504 DOR SR5 04 
002639 OBF6 CFOO 1168 STR SR4e<TLOC 
002640 OBF8 8754 CL =$SR4 
002641 OBFI 5084 DOL SR504 
002642 OBFA C600 1168 XOR SR4e<TLOC 
002643 OBFC 50C2 DOR SR5e2 
002644 OBFD CFOO 1168 STR $R44<TLOC 
002645 OBFF 8754 CL =$R4 
902646 Ocdod0 5082 DOL SR502 
002647 OCO1 cé600 1168 XOR SR4e<TLOC 
002648 0CcO3 4041 SOR BR4o1 
002649 OC04 0682 BCF >CPAR1 
002650 OCOS 8AD4 INC =$R4 
002651 0OC06 C600 1164 CPAR1 xXOR SR4e<PTTY 
002652 * 
002653 oco8 4000 SOL $R440 SHIFT PARITY BIT TO POSITION é 
002654 OCO9 £454 OR SROF=SR4 PUT PARITY BIT INTO DATA OF 
002655 OCOA E7ED STH $R64$B14+$R2 STORE INTO DATA SHOULD BE ah 
002656 OCOB 7780 OBE2 BINC SR74<CPAR2 DO NEXT CHARACTER soe 
002657 OCOD 8F80 117A RSTR <SAV1/=Z2'°EF DO? RESTORE REG. 
OCOF EFDO 
002658 0C10 8384 JMP $B4 JUMP OUT OF PARITY FORMATION SUBROUTINE 
002659 * 
002660 RSS SST SPSS SSS SS SSS SSS SSS PSPSPS SSSSSSSSSSSTSsstlesessseSsSssssesessesse s2zseszeczeres=ezee 
002661 * 


002662 * SET TEST MODE ON FIRST LINE OF CLA 
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002663 * 
002664 * LNJ $B4s<STMD 
002665 * 
002666 OC11 8FOO 118A STMD SAVE <SAV2e=Z2 "DF 8C* SAVE REGS. 
0C13  DF8C 
002667 OC14 3EFE ADV $R3,=-2 SET $R3 TO RECV. CHAN. ON FIRST LINE 
002668 0OC15 CB80 0E11 LAB $B4e<CHLP LOAD $84 WITH ADDRESS OF CHANNEL PROG. 
002669 O0C17 OFB8E B >STMD2 
002 670 eS SSS SS Ss Ss SSS SSS Ss SS Sse 33 SSS SS 3 SS SSSss SS Sse sss SSSS SSeS S353 S253 5S3 5 S225 52322525 
002671 * 
002672 x SET CURRENT LOOP ADAPTER FOR FASTEST SPEED 
002673 * 
002674 0OC18 =8FO00 118A SCLS SAVE <SAV2e=2'DF8C! SAVE REGS. 
OC1A DF&C 
002675 0C18 c800 113F LOR SR4e<FOCC 
002676 OC1dD C380 0D95 LNJ $B46<CGSCH 
002677 OC1F 8000 1164 SCLS1 10 <BITOs=$R4 CHANNEL INITIALIZE 
0C21 0054 
002678 OC22 U7FD BIOF >SCLS1 
002679 OC23 CB80 0E14 . LAB $B4-<CHLPS LOAD $B4 WITH ADDRESS OF CHANNEL PROG. 
002680 O0C25 CF80O 0634 STMD2 STB SB4e<STMD3+44+$ AF STORE ADDRESS FOR ZVS$MLW 
002681 OcC27 c8&00 1145 LDR SR4,<FINS LOAD AN 1/0 TO GET CHANNEL FOR ZVSMLW 
002682 0C29 ¢3&0 0095 LNJ $B44<CGSCH 
002683 OC2B ¢570 FFCO AND SR4e=2"F FCO? STRIP OFF DIRECTION BIT AND FUN CODE 
002684 OC2d cFOO 1151 STR S$R46<CHNZ STORE CHANNEL FOR CALL 
002685 * 
002686 STMD3 CALL ZVSMLWe SeWCP2HX200-CHNZ 
OCc2F FBCO 0003 
0¢31 D380 0000 X 
0C33 OF80 
0C34 OC2F 
0C35 131C 
0C36 1246 
O0C¢37 1151 
002687 OC38 0380 0038 LNJ $B85,<SETLCT SEND OUT LCT 
002688 OC3A 12C€C DC <LCT 
002689 * . 
002690 Oc3B 8757 CL =$R7 CLEAR FOR SHORT DELAY OF 30 MS. 
ee 002691 Oc3Cc C800 113F LOR BR4e<FOCC FORM CONTROL WORD 
PF 002692 OC3E C380 0095 LNJ $B42<CGSCH FOR 
002693 0c40 8s000 11¢5S 10 <BIT1,=$R4 START 1/0 
. 0C42 0054 
002694 0C€C43 0700 OC47 BIOT <STMD1 
002695 O0C45 F380 ODBA LNJ $B7/<ERMB ERROR: 1/0 WAS NAK'ED 
002696 * 
002697 OC47 0380 0063 STMD1 LNJ $B5 o <TDLAY TIME DELAY 
002698 OC49 8F80 118A RSTR <SAV2se=2'DF BC! RESTORE REGS. 
OC4B DF8&C : 


002699 OC4C 8384 JMP $B4 
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002700 * 


002701 KRSSPSS SSR SSSA SSS SS SSS SPSS SST BAST SSS SASS SS THT MSHS ISS Sst Sse BT SSA ST Ss ss2zessss22z=222= 
002702 * 
002703 * CONVERT RTC TICKS TO MILSEC., 
002704 * 
002705 OC4Dd 8FO0O 117A TKSEC SAVE <SAV142=2°D380* SAVE REGS. 
OC4F 0380 
002706 * 
002707 ocsoO cFS51 STR $R4,=SR1 DUPLICATE VALUE IN $R1 
002708 0¢51 CBOO 1157 © MUL $R4,<01V1 
002709 O¢53 cFOO 1168 STR S$R4e6<TLOC 
002710 OCc55S C851 LDR SR44=5R1 
002711 OC56 CBO0O0 1158 MUL $R4,<DIV2 
002712 0C€58 C370 OODA DIV $R4,=10 
002713 OCSA CAOO 1168 ADD $R4e<TLOC 
002714 oacsc cFfO00 117168 STR $R44<TLOC 
002715 Ocse C€&51 LDR $R4,=5R1. 
002716 OCSF . cBoO 1159 MUL $R44<DIV3 
002717 0¢C€é61 C370 0064 DIV $R4,-=100 
002718 OC63 CcAO0DOD 1168 ADD $R44<TLOC 
002719 Oc65 CFOO 1168 STR $R4e<TLOC 
002720 OCcé67 ¢851 LOR $R4,=5R1 
002721 OC68 ¢CBOO 115A MUL SR4e<D1V4 
002722 OCc@A C370 O3E8 DIV $R442=1000 
002723 Océ6C CADDO 1168 ADD SR4e<TLOC 
002724 * 
002725 OCé6E 8F80 117A RSTR <SAV1-=2'0D380' 
0c70 0380 . 
002726 OC71 £8385 JMP $B5 
002727 : * 
002728 ek SSP SSATP S SSS SAPS SST SS Sse Sst sts ss se sss sss sssrssssersssstst esses sss2z2rsrssssese2 
002729 x 
002730 * CONVERT MS TO BITS/SEC (GIVEN CHAR.” SIZE & NUMBER) 
002731 * 
002732 OC72 8FQ0 117A BPS SAVE <SAV1/=Z'DF80* SAVE REGS. 
O0c74 DF80 
002733 O0C75 8756 CL =$R6 CLEAR $R6 FOR DIVIDE 
002734 OC?76 9826 LDR $R14$B86.5R2 LOAD $R1 WITH NUMBER OF CHAR, 
002735 O0C77 9970 OFOO CMR $R1-=3840 ; 
002736 OC79 0983 BNE >BPS1 eo” 
002737 OC7A 1£07 ADV $R14=7 ch, 
002738 OC?7B 9255 SUB $R14=5R5 ” 
002739 Ocrc F870 O3E8 BPS1 LDR $R74=1000 CONVERSION FACTOR FOR MS TOC. 
002740 OC7E FBOO 1154 MUL $R76<CSB MULTIPLY BY CHARACTER SIZE 
002741 Oc80 F354 DIV ER7 oe =SRG DIVIDE BY ACTUAL TIME IN MS 
002742 QOC81 8000 116C SDI <TP1 STORE DOUBLE INTEGER 
002743 O0C83 8756 ; CL =$R6 
002744 OC 84 F800 116D LDR BR74<TP2 


002745 OC86 FB51 MUL $R7=$R1 
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002746 OC87 82D7 LB =$R7,=2'8000' 
0C88 8000 
002747 OC89 0502 BBT >BPS2A 
002748 OC8A 69C3 BE2 $R6,>BPS2 
002749 OC8B B8A80D 115E BPS2A INC <HGSPD 
002750 OC8DdD 8D00 1161 BPS2 SDI <MSBS 
002751 OC8F 8030 1227 SOI <SYLSPO.SR3 
002752 0C91 F800 116C LDR $R7e<TPA 
002753 OC93 7FOA MLV $R74=10 
002754 OC94 F354 DIV SR74=5R4 
002755 O¢c95 FFSS STR $R74=5R5 
002756 OC96 DB5S1 MUL $R54=$R1 
002757 OC9? D370 OQOOA O1LV $R54=10 
002758 OC99 DADO 1162 ADD $R5e<MSBS+1 
002759 OC9B 70D0 DOR $R7416 
002760 OC9C 7FOA MLV $R74=10 
002761 OC9D F354 DIV SR7e=5R4 
002762 OQOC9E FBS51 MUL $R7,=5R1 
002763 OC9F F370 0064 DIV $R7,=100 
002764 OCA1 FASS ADD SR74=5R5 
002765 OCcA2 FFOQO 1162 STR $R74<MSBS+1 
002766 OCA4 8F80 117A RSTR <SAV1s=2'DF 80° 
OCA6 DF80 
002767 OCA? 8385 JMP $B5 
002768 * 
002769 Oo RSSSSS SSS SSS SSSSSS SSS SSS SSS SSS SSS SSS SSS SS SSS SSS SHS Sess sss sess sssessesssssesxsze 
002770 * 
002771 * PRINT LINE SPEED 
002772 * 
002773 OCA8 8FO0O 118A PRTILSP SAVE <SAV2e=2'B8&8F * SAVE REGS. 
OCAA 888F 
002774 OCAB 3041 SOR R361 - SHIFT $R3 TO REPRESENT LINE NUMBER 
002775 OQOCAc BFOO 1168 STR S$R36<TLOC STORE LINE NUMBER FOR ZVSTD 
002776 , CALL ZVSTC+MESG2,BYTP PRINT LINE TYPE 
OcAE FBCO 0003 
OcBO0 0380 0000 X 
OcB2 OF8) 
OCB3 1358 
OCB4 114€ 
een 002777 CALL ZVSTOsTLOC PRINT LINE NUMBER 
( OcB5 FBCO 0003 
OCB? 0380 0000 X 
OCB9 OF80 
OCBA 1168 
002773 CALL ZVST»MESGS PRINT ‘speed' 
OcBB FBCO 0003 
OCBD 0380 0000 X 
OCBF OF80O 


OccO 1564 
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002779 
002780 
002781 
002782 
002783 
002784 
002785 
002786 
002787 
002788 
002789 
002790 
002791 


002792 


002793 


002794 
002795 
002796 
002797 
002798 
002799 
002800 
002801 


002802 
002803 
002804 


002805 


OcCc1 


OcCc3 
occs 
Occ? 
OCCc8 
OCCA 
Occc 
OCCE 
OCCF 
OC DO 
OC D1 


OCD3 
OCDS 
OCd? 
OC D8 
OCD9 


OCDA 
OCOC 
OCDE 
OCDF 


OCEO 
OCE2 
OCE4 
OCES 
OCES 
OCE? 
OCE9 
OCEA 
OCEC 
OCEE 
OCFO 
OCF1 


OCF3 
OCFS 
OCF? 
OCF8 
OCF9 
OCFA 


OCFC 
OCFE 
0D00 
0001 
Od02 


D380 


D380 
89 80 
0919 
8C 80 
F370 


~FFOO 


60 64 
0A 02 
6C 64 
EF OO 


FBCO 
D380 
OF &0 
1161 
11E2 


FBCO 
D380 
OF 80 
11€1 


FBCO 
D380 
OF 80 
1162 
11E2 
89 80 
0999 
EB 80 
C870 
€908 
0903 
EB 80 


FB CO 
D380 


OF 80 


136A 
B8 26 
BFOO 


FBCO 
D380 
OF 80 
1168 
8700 


OC 4D 


Oc72 
115E 


1161 


O3E8 


1161 


1162 


0003 
0000 


0003 
0000 


0003 
0000 


12E5 
1257 
2108 
03D6 
1266 


0003 
0000 


1168 


0003 
0000 


1161 


07/28/78 


1733.9 edt Fri 


PRLT5 


PRLT3 


PRLT? 


PRLT1 


LNJ 


LNJ 
CM2 
BE 
LDI 
DIV 
STR 
CMV 
BAG 
LDV 
STR 
CALL 


CALL 


CALL 


CMZ 
BNE 
LAB 
LDR 
CMR 
BE 
LAB 
CALL 


LDR 


STR 


CALL 


CL 
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$B54<TKSEC 


$B54<BPS 
<HGSPD 
>PRLT3 
<MSBS 
$R7,=1000 
$R74<MSBS 
$R642100 
>PRLT5 
$R62=100 
S$R60<MSBS+H1 
ZV$TDsMSBS,s BKLS 


ZVST*COMMA 


ZVS$TOsMSB8S+1,BKLS 


<LCO3SYF 
>PRLT1 
$B64<ALSPBL 
$R45=X'2108' 
$R4e*%*<ST1 
>PRLT7 
$B6-<CMSPBL 
ZVETsMESGS 


$R345B6.5R2 
$R34<TLOC 
ZVETOATLOC 


<MSBS 


PAGE 0064 


CONVERT NUMBER OF TICK IN $R4 TO MS 


USE $R4& TO CALCULATE BITS/SEC 
CHECK FOR HIGH SPEED LINE 


LOAD DOUBLE INTERGER INTO $R6s$R7 
FIND NUMBER OF KB_ 


PRINT NUMBER OF KB 


PRINT LINE SPEED 


IF SYNC. LINE ALL DONE 
IF ASYNC. PRINT SHOULD BE 
LOAD ADDRESS OF *should be* SPEED TABLE 


IF NEW LINE SPEED CHANGE $86 TO POINT TO TABL 


PRINT *SHOULD BE® 


LOAD $R3 WITH LINE SPEED 


teat latt chad etl hed etadeabale weNl etatarks desea SA cb tnd itdAt lain da noted wire Skalsht edad anemaaetba Ebates Sad acl ds 


TITLE DCMVA 


002806 
002807 


002808 
002809 
002810 
002811 
002812 
002813 
002814 


002815 
002816 
002817 
002818 


002819 
002820 
002821 
002822 


002823 
002824 
002825 
002826 
002 827 
002828 
002829 
002830 
002 831 


002832 
002833 
002834 
002835 
002836 
002837 
002838 
002839 


002840 
002841 
002842 
002843 
002844 
002845 
002 846 
002847 
002848 


Od04 
0006 
0008 
0D09 


ODOA 
Od0C 
ODO0D 
ODOE 
0D10 
O0D12 
0014 
0015 
0016 
0bd18 
ODA 
ODd1C 
0D10 


ODE 
0Dd20 
0021 
O22 
OpD24 


0D25 
OD27 
0D28 
OD2A 


0D2B 


8700 
8F80 
B8& 8F 
83 84 


8F 00 
1118 
8757 
C800 
C380 
8000 
00 54 
0703 
F380 
63 3860 
8F 80 
1118 
83 84 


8F 00 
0008 
D852 
C800 
OF 8C 


8F O00 
0008 
C800 
OF 86 


8F O00 
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1162 CL <MSBS+1 
118A RSTR <SAV2,=Z2'B88F* RESTORE R 
JMP $B4 
* 
We SS SSS SSS SSS SSS S SSS SF SSS SS SSS SSS SSSS SS SS SSSSSSSSITSSSqstssssssstrtassrsesasszz 
* 
k GENERAL INITIALIZE FOR MLCC 
* 
118A GENITZ SAVE <SAV2,=2°1118' SAVE 87-$R7 
CL =$R7 ALLOW 30 MS DELAY 
113D LDR $R46<FOMC GET FUNCTION CODE FOR INITIALIZE 
0095 LNJ $B42<CGSCH MODIFY FOR CHANNEL 
1104 10 <BITO,=$R4 INITIALIZE 
BIOT  >N2 
ODBA LNJ $B7/<ERMB INITIALIZE WAS NAK*ED 
0065 N2 LNJ $B5 4 <TDLAY WAIT 30 MS 
118A RSTR <SAV2-=2°1118° 
JMP $B4 RETURN 
* 
HS SSS SS SS SSS SSS SBS SRS SSS 8S SS SSS SS SSS SSS SSS SSRSS SS SS SSIS SSSSSSVSSTSSSSSssqqqzqazqzqBq 
* 
‘ OUTPUT CHANNEL CONTROL 
* 
‘ $R2 - CONTAINS CHANNEL CONTROL TYPE 
* 
117A STCR SAVE <SAV1,=2'0008' SAVE REG. 
LDR $RS-=$R2 | 
113F LDR $R46<FOCC LOAD FUNCTION CODE FOR CHANNEL CONTROL 
B >NIA 
RSS SSP SSP SSMS SSS SSS ST SSS SS SSS SHV SSS SSS SSSSSSSSSSSSSSSSSSSSSTSSssSsSsssSssSsesssessseasse 
* 
* INPUT NEXT STATUS TO RS 
* 
117A INXT SAVE  <SAV1=2'0008' B4 
1145 LDR SR4G,<FINS GET CONTROL WORD FOR INPUT NEXT STATUS 
B >NIA 
RSS SS RSS SSS SB STM SSS SSS SS SSS SSS SSS SSSRSSSSSSSSSSSSSSSSSSSSSSSSSSSSVTSSBVesseszsrst 
* 
INPUT RANGE 
* 
$R5 - RESULT OF RANGE INPUTED 
* 
117A INRG SAVE  <SAV1,=Z°0008* SAVE REG. 


> 
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Od20 0008 
002849 OQOod2E C800 1143 LDR $R4,<FIR LOAD S$R4 WITH FUNCTION CODE FOR INPUT RANGE 
002850 0030 ¢380 0095 N1iA LNJ $B844<CGSCH MODIFY FOR CHANNEL 
002851 0D32 8055 10 =$R5 2=$R4 
0033 0054 
002852 0034 90703 BIOT >N1 
002853 0035 F380 ODBA LNJ $B7.<ERMB ERROE: 1/0 WAS NAK*ED 
002854 0037 8F80 117A N14 RSTR <SAV1,2=2'0008* 
0039 0008 
002855 OD3A 8384 . JMP $B4 
002856 * 
002857 RSH SSP SSS SSP SSSSS SS SSS SSS PSS SSS SSS SST SSS TSS SSP SSSS SP SSS S SSS SS SsSssesssssssssess 
002858 * 
002859 * SET UP LCT FOR CHANNEL SPECIFIED IN R3 
002860 * 
002861 * LNJ SB5S/<SETLCT 
002862 * DC TABLE 
002863 * . 
002864 0038 8F0Q0 117A SETLCT SAVE <SAV1,=Z *E8ED® R16R2eR4,B248B1 
003d €E8€0 
002865 OD3E 9CFS LDdB $B1,+385 GET ADDRESS OF TABLE 
002866 OO3F 8751 CL =$R1 
002867 * 
002868 QD040 A811 LCT4A LOR $R24$81.5R1 GET BYTE TO OUTPUT 
002869 OD41 8AD1 INC =$R1 
002870 0042 2985 BNEZ SR2e>LCTSA BRANCH IF NOT AT END OF TABLE 
002871 0043 8F8&0 117A RSTR <SAV1,=Z°EBED* 
0D45 €£8€0 ; 
002872 0046 8385 JMP $B5 RETURN 
002873 , * 
002874 0bD47 c800 1141 LCTSA LDR $R4,<FOBL FUNCTION CODE FOROUT LCT BYTE 
002875 00949 ¢380 O0D95 LNJ $B4,<CGSCH FORM IO CONTROL WORD 
002876 0048 8052 — LCT3A 10 =$R2=5R4 OUTPUT BYTE 
On4C 0054 
002877 QD40 O7FE BIOF >LCTS3A CHECK IF TAKEN 
002878 OD4E OFFe B >LCT4A GET NEXT BYTE 
0023879 | 
002 880 KSSSSS SSS SSP SM SH BP SSH SS SSS SS Ss sSSsSsssssssSssssSsesssesssessessesesseseenrsszzrez2 
002881 * 
002882 * FIND FIRST ACTIVE LINE oe 
002883 * fs 
002 884 * SR3-START CHECK ON THIS LINE AND ‘a v 
002885 * CYCLE THROUGH ALL LINES IF aoe 
002886 * ONE FOUND ON LINE NUMBER IS HERE 
002887 * 
002888 * LNJ $BSe<FLN 
002889 * DC OF LINE TYPE TO SEARCH FOR 
002890 * <RETURN> IF NO LINES ON 
002891 * <RE TURN> 


oe WalgubhlSanaitlinlS host a cor ate y ete ateme tad ance tledettne nt edad bee edhe aa ed Cree nah ely Ee TREE a cael eedes See SAL rae et ae 
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002892 * 
002893 OD4F S8FO00 117A FLN SAVE <SAV1,=Z'AQEO' SAVE REG. $R2-$82-$81 
0051 AGED 
002894 0052 3041 SOR $R301 
002895 0053 9CF5 LDB $B1,+$85 
002896 0054 A801 LDR $R2-5B1 PUT LINE TYPE INTO $R2 
002897 0055 AB80 11CB LAB $B2e<ATLT ADDRESS OF ACTIVE LINE TABLE 
002898 Q057 308 FLN2 CMV $R34=8 SEE IF AT BOTTOM OF TABLE 
002899 0058 0287 BGE >FLNS . 
902900 0059 AO 7E CMR $R24$B2.+5R3 SEE IF INDEX LINE ON 
002901 OD5A O9FD BNE >FLN2 
002902 O005B 88D3 DEC =$R3 SET $R3 BACK TO VALUE FOUND 
002903 On5C 3001 SOL $R3-1 
002904 OD50 oBcs 0001 LAB $85.$B85.1 INCREMENT TO VALID RETURN 
002905 ODSF 8F80 117A FLN3 RSTR <SAV1-=2*AQEO* RESTORE REG. 
O0D61 AOED 
002906 OD62 8385 JMP $B5 JUMP OUT OF ROUTINE 
902907 x 
vO02 908 RBSSSSHSSSSST SPR SHS SPS HS SSS TPT BPHM SSS SBP SSAPSSSHBRSHPSSSSSSSSSSHSPSSSSSSVITsSSEstssso=rzsss 
002909 * 
002910 * TIME DELAY 
002911 * 
002912 * LNJ $B5e<TOLAY 
002913 * - 
002914 0063 8FO0O0O 117A TDLAY SAVE <SAV1-=2'C180' SAVE REG. $R1-$R7 
0065 ¢180 
002915 QD66 1¢ 09 TOLA LDV $R14=9 LOAD CLOCK INITIAL COUNT 
002916 0067 9FO00 0000 Xx STR SRI 4<ZHRTCC 
002917 0069 1¢05 LDV $R14=5 
002918 OD6A 0004 RTCN TURN ON REAL TIME CLOCK 
002919 ODd68 =9900 Q000 X TDLA1 CMR SRI 6 <ZHRTCC 
002920 0060 0882 BAGE >TOLA3 
002921 OD6E OF FD B >TDLA1 
002922 OQOd6F O0C5 TOLAS RICF TURN OFF REAL TIME CLOCK 
002923 0070 7776 BDEC ER7e>TDLA 
002924 QOD71 £=8F80 117A RSTR <SAV14=2'°C180° RESTORE $R1 
0073 ¢18&0 
002925 0074 8385 JMP $B5 
002926 * 
bese 002927 RSRASS SSS SSS SS SSS SSS SSS SSS SSS TS SSS SSSSSSSSSSSSSSSSSSSSSsSeSEsssststs2e2ze2r2=s=rz=2= 
, 002928 * 
002929 * READ LCT 
002930 * 
002931 * LNJ $B6-<RDLCT 
002932 * dC <ADDRES S> 
002933 * DC <RANGE IN BYTES> 
002934 * 
R 


002935 0075 8FO0 117A DLCT SAVE  <SAV1,=2"C88C* SAVE REGS. 


O07? C8&8&C 


TITLE DCMVA 


002936 
002937 
002938 
002939 


.002940 


002941 
002942 
002943 
002944 


002945 


002946 
002947 
002948 
002949 
002950 
002951 
002952 
002953 
002954 
002955 
002956 
002957 
002958 
002959 
002960 
002961 
002962 
002963 
002964 
002965 
002966 
002967 
002968 
002969 
002970 
002971 
002972 
002973 
002974 


002975 


0078 
OD7A 
Oo7C 
OD7E 
0080 
0081 
0D83 


0085 © 


0087 
0D89 
0088 
OD8C 
0D8D 
OD8E 
OD8F 
0D90 
0092 
0093 


0095 
0096 
0D97 
0098 


0099 
0D9B 
OD9C 


3006 
C453 
30 46 
83 84 


8F 00 
FOF8 
7C7E 


1143 
0095 
FF 80 
1151 


1168 
0001 
1169 


0003 
0000 


117A 


0002 


117A 
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LDR SRGS<FIR LOAD DUMMY I/0 
LNJ $B4,<CGSCH PUT PROPER CHANNEL IN 
AND $R4,22"FF80' 
STR SR4e<CHN2Z STORE CHANNEL NUMBER FOR CALL 
LOR $R4 4386 STORE ADDRESS IN ZVSMLR CALL 
STR SR4e<RLCTAD 
LOR S$R45%B60.1 STORE RANGE FOR ZV$MLR 
STR SR4e<RLCTRG 
CALL ZVSMLRoLCTVeRLCTRGsRLCTADSCHNZ 
RSTR <SAV1,=2'C88C* 
JMP $B6.2 
* 
“sss == 33522552 2 S352 5535 SS SSS SSesesSs sss SSS SSS SS SS SSeS st SSS SS SS SSS S SST SsSssss2 Ss 
* 
* CHANGE SUBCHANNEL 
* 
* $R3 -CONTAINS SUBCHANNEL WANTED 
* SR4 -CONTAINS I/0 CONTROL WORD TO BE CHANGED 
* 
* LNJ $B44<CGSCH 
* 
* i 
CGSCH SOL $R3 46 SHIFT TO SUBCHANNEL POSITION 
OR SR4,25R3 OR SUBCHANNEL NUMBER INTO CONTROL WORD 
SOR SR3 46 SHIFT TO NORMAL POSITION 
JmMeP $B4 GO BACK 
* 
KSS RSS RSS SBMSSSSSSV SSS SSS SSSS SSS SV TSS ST SVS SS SS SsszSsses=z = ae a Se a a a on a a aD Se a on an Se oe as ae eee 
* 
* CCB FORMATION 
: | . 
* $R3 - CONTAINS SUBCHANNEL WANTED ts 
* $R4 =- CONTAINS RANGE (NUMBER OF BYTES) | 
* ae 
* LNJ $854<MCCB 
* DC CPU ADDRESS 
* DC RAM ADDRESS NUMBER OR CHANNEL CONTROL WORD. 
* 
MCCB SAVE <SAV1e=2*FDF8° SAVES $B14$834$B2eSB40 SR7oSR5eSR4eR208 SRI 
LDV $R7 42126 
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TITLE DCMVA 


002976 
002977 
002978 
002979 
002980 
002981 
002982 


002983 
002984 
002985 
002986 
002987 


002988 
002989 
002990 
002991 


002992 
002993 
002994 
002995 
002996 
002997 
002998 


002999 
003000 
003001 
003002 
003003 


003004 
003005 
003006 
003007 


003008 
003009 
003010 
003011 
003012 
003013 
003014 
003015 
003016 


OD9D 
OD9IE 
OD9F 
ODAO 
ODA2 
ODA4 
ODA6 
ODA? 
ODA8 
ODA 
ODAA 
ODAB 
ODAD 
ODAF 
O0d0B0 
0081 
O0B2 
ODB3 
0085 
OD0B7 
0088 


ODBA 
ODBC 
OOBD 
OQDBF 
ODC1 


ODCe 
ODC4 
ODCS5 
ODC? 


ODC9 
ODCB 
Oocc 
OndCD 
ODCE 
0DD0 
Od02 
0003 
0004 
0D06 


0008 


AC FS 
A805 
D8 54 
C800 
C380 
7900 
81 &2 
0054 
0055 
8807 
O7 FA 
C800 
C3 80 
8052 
00 54 
O7 FE 
OF 83 
F380 
8F 80 
FDF8 
83C5 


8F 00 
FFFF 
C870 
CF OO 
OF 88 


8F 00 
FF FEF 
C870 
CFOO 


8800 
OO FF 
3041 
SE30 
B400 
BF OO 
1¢ FO 
8753 
EBC? 
EF 80 


FBCO 


1140 
OD95 
0083 


1142 
0095 


ODBA 
117A 


0001 


11AA 
4D42 
13A8 
11AA 


4442 
13A8 


13A9 


13A9 
13A9 


FFFE 
ODDD 


0003 
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LOB $B2-+$B5 LOAD $82 WITH CPU ADDRESS 
LDR $R2,3B5 PUT RAM ADDRESS IN $R2 
LOR SRS -,=SR4 
LDR SR4e<FOLD LOAD $R4 WITH I/O CONTROL WORD 
LNJ $B4<CGSCH 
MCBS BEZ SR7e<MCER 
IOLD $82,=$R4,=5R5 OUTPUT ADDRESS AND RANGE 
DEC =$R7 
BIOF  >MCBS5 
LOR $R4,<FOCB LOAD $R4 WITH 1/0 CONTROL WORD 
LNJ $B4-<CGSCH PUT 1/0 CONTROL WORD IN $R4 
MCB2 10 =$R2e=SR4 OUTPUT MLCC RAM ADDRESS 
BIOF >MCB2 
B >MCB6 
MCER  LNdJ $B7/<ERMB IOLD HAS BEEN NAK'ED 
MCB6  RSTR  <SAV1,=Z'°FDF8! RESTORE REGS. 
JMP $85.1 
* 
RSS SSS SSS SSS SSS SS SSS SVS SS SSS SSS ST SSSSSSSSSSSASSSSSSSSSSqsgqgsSsssssqgssesseez2saeszq 
* 
* ERROR PRINT ROUTINE 
* 
ERMB SAVE <SAV4/=Z2°FFFF! SAVE ALL REGS. FOR PRINT OUT 
LDR $R4,=A'MB! STORE "MB" FOR PRINT 
STR $R4,<ERMG 
B >ERROR 
x 
ERDB SAVE <SAV4s=Z°FFFE® 
LDR $R4,=A'DB! 
STR SR4,<ERMG 
* 
ERROR LBF <ERMG+14=X'FF! 
SOR $R3 01 SHIFT TO GET LINE NUMBER 
ADV $R3,=X'30! CHANGE NUMBER INTO ASCII 
OR $R32<ERMGH1 
STR $R3-4<ERMG+1 STORE LINE NUMBER 
LDV $R1,=-16 INTIALIZE LOOP COUNTER 
CL =$R3 CLEAR INDEX 
LAB $B6/$B7.~-1-$AF DECREMENT $87 
STB $SBOe<ERRIFG¢S AF STORE ERROR ADDRESS FOR ERROR CALL 
ERR1 CALL ZVSEReSeERMG 
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TITLE OCMVA 


003017 
003018 
003019 
003026 
003027 
003028 
003029 
003030 
003036 
003044 


003049 
003050 
003051 
003052 
003053 
003054 
003055 
003056 
003057 


003058 
003068 
003069 
003070 
003071 
003072 
003073 


003074 


003075 
003076 
003077 


003078 
003079 
003080 
003081 
003082 


ODDA 
ODDC 
ODDD 
ODDE 
ODDF 
ODE1 
ODES 
ODES 
ODE6 
ODES 
ODEA 
ODEC 
ODEE 


ODEF 
OOF 1 
ODF3 
ODF4 


ODFS © 


ODF6 
ODF? 
ODF8 
ODF9 
ODFA 
ODFC 
OOFD 
ODFF 
QE00 
OED2 
OE03 


O£04 
QE06 
OE08 


QEOA 
QEOC 
OEDE 
OE OF 
0€10 


D3 80 
OF 80 
0D D8 
13.A8 
EB 80 
CB 80 
AB 80 
EF 82 
89 80 
0900 
8880 
9B 80 
BF 81 


FBCO 
D380 
OF 80 
ODEF 
ODEF 
8AD3 
CF 82 
3D 08 
09 84 
EB 80 
EF 82 
1780 
0000 
8F 80 
FF FF 
8387 


8700 
89 80 
0900 


FBCO 
D380 
OF 80 
1378 
8382 


0000 


117€0 
128E 
ODFS 


1158 
OED00 


TIAA 
ODF4 


0003 
0000 


11£0 
ODEA 


T1AA 


OOFF 
0000 
OOFF 


0003 
0000 
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LAB $B6/<CRLF PUT CR-L INTO CALL 
LAB $B44<SPACE 
LAB $B2e<ERR35+442% SAF 
ER11 STB $B6,$B82 
CMZ <ERF CHECK FLAG FOR SHORT REPORT 
BE <ERRS 
ERR LAB $B34<SAV4.5R3 FECTH AND STORE REGISTER 
LAB $B1 re <ERR3St4 +S AF 
ERR21 STB $B3,5B1 
ERR3 CALL ZVSTHZ S45 
ERR34: INC =$R3_ BUMP INDEX 
STB $B4,3B2 
CMV SR3e=7*SAF +1 SEE IF CR-LF NEEDED 
BNE PERRS 
LAB $B6/<CRLF 
STB $B6-3B2 PUT CR-LF INTO CALL 
ERRG BINC S$R1IZ,<ERR2 DO NEXT REGISTER 
HLT HALT AFTER ERROR 
ERRS RSTR <SAV4/=Z‘° FFFF® RESTORE REGISTERS 
JMP $87 RETURN 
SAFF NULL 
* 
* 
* END OF PASS CHECK 
* 
EOPCK CL <STOP 
CMZ <ZVSTTY 
BE <STOP 
CALL ZVSTC2MESG8 an 
7 J 
JMP $B2 
. CHANNEL PROGRAMS 
x 
* 
* 


TITLE DOCMVA 


003083 
003084 
003085 
003086 
003087 
003088 
003091 
003092 
003095 
003096 
003097 
003098 
003099 
003100 
003101 
003102 
003103 
9003106 
003107 
003110 
003111 
003112 
003113 
003114 
003115 
003116 
003117 
003118 
003119 
003120 
003121 
003124 
003125 
003128 
003131 
003132 
003135 
003136 
003139 
003140 
003141 
003144 
003145 
003148 
003149 
003150 
003151 
003152 
003153 


O€11 


OE12 


OE13 


OE14 


OE&15 


OE&16 


O&17 


0E18 


OE19 


OE1A 


O€1B 


OEIC 


OE 11 


5014 


3201 


0000 
0614 


9OOF 


3401 


0000 
OE 17 


0200 


5018 


34A0 


5014 


3201 


SO01C 


E211 


020C 
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* 

* 

* 

* ORG 

CHLP EQU $ 

* LD 

OUT 

. WAIT 

* NOP 

* 

* SET 

ORG 

CHLPS EQU $ 

. LD 

* OUT 

. WAIT 

* NOP 

* 

*® 

* ‘ 

* ORG 

CHLP1 EQU $ 

* LOC 

HLP1 EQU xX*'0200 

* LD 

* OUT 

* RECV 

* Lo 

* OUT 
WAIT 

. Lo 

BZT 

LOC 


TRNX EQU X*020C 
«HH 

«H 

‘ RECV 


x' 200° 
20 


2 


x*200' 


=x'f 


4 


C 
x*200' 


HLP 14 


24 
4 
0 
20 


2 


28 
GETC 
TRNX 


0 


HANNEL PROGRAM 


HRS ASSEMBLER 5.05 PAGE 


CHANNEL PROHRAM FOR REV H 
SET TEST MODE ON CLA FOR SECOND LINE OF CLA 


FOR LOOP AT 


0071 


CURRENT LOOP ADAPTER TO FASTEST SPEED 


LINE ADAPT CREC) 


GET LINE SPEED CASYNC) OR SYNC CHAR CSYNC) 


OUTPUT IT 
DUMMY REC. 


FOR CURRENT LOOP ADAPT 


GET LINE CONTROL 


OUTPUT IT 


LOAD SYNC. 


INPUT CHARA 


FLAG [IF ZERO LINE IS ASYNC. 


CTER 


TITLE OCMVA 


003156 
003157 
003160 
003161 
- 003164 
003165 
003166 
003169 
003170 
003171 
003172 
003175 
003176 
003179 
003180 
003181 
003182 
003183 
003186 
003187 
003188 
003189 
003190 
003191 
003194 
003195 
003196 
003199 
003200 
003201 
003202 
003203 
003204 
003207 
003208 
003209 
003210 
003213 
003214 
003215 
003218 
003219 
003220 
003221 
003224 
003225 
003228 
003229 
003230 


O£1D 


OEE 


OETF 


0E20 © 


0E21 


OE22 


OE23 


OE24 


O&25 


OE26 


QO&27 


OF 28 
OE29 
OE2A 
OE2B 


QE2C 


A052 


18F4 


0401 


EQF9 


0214 


92FF 


E109 


0301 


EOF 


O21C 


A011 
E304 


0220 


01€0 
0223 
FAES 
0402 
EOFS 
02 28 


9000 


3202 
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* C 24 
* BEF CKFF 
x WAIT 
* B TRNX 
* Loc CKFEF 
CKFF EQU xX'0214° 
c =X*ere 
* BET GETC1 
fe SFS 

WAIT 
x 8 TRNX: 
x# 
+ HH 
. Loc GETC 
GETC EQU xXx*021C! 
* RECV 0 
* ST> STORE 
r BLCT HLP1A 
LOC GETC1 
GETC1 EQU xX*'0220' 
" WAIT 
* B GETC 
* LOC HLP1A 
HLP1A EQU X'0223! 
* BLBT  GETX 
* GNB. 
‘ B GETC 
* LOC GE TX 
GETX EQU x'0228! 
* Lo =0 
* OUT 2 
‘ GNB 


r WALT 
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INPUT CHARACTER 
INTO DATA BUFFER 


TURN OFF REC. 


TITLE DCMVA 


003231 
903232 
003235 
003236 
003237 
003238 
003239 
003240 
003241 
003242 
003243 
003244 
003247 
003248 
003251 
003252 
003255 
003258 
003259 
003260 
003261 
003264 
003265 
003268 
003269 
003272 
003273 
003274 
003275 
003278 
003279 
003282 
003285 
003286 
003289. 
003290 
003291 
003292 
003295 
003296 
003297 
003300 
003301 
003302 
003303 
003304 
003305 
003308 
003311 


OE2D 


QOE2E 


OE2F 


OE 30 


O€31 


OE32 


OE 33 


OE 34 


0€35 


OE36 


0&37 


0€&38 


OE39 


OE 3A 


OE38B 


OES3C 


OE3D 


01€0 


D200 


OE 2F 


0400 — 


5002 


3690 


AA 34 


0150 
1CE2 
1590 
04 0D 
0651 
3F 50 
1860 


50 3F 


OSE2 
0401 
EQF4 


O41A 


0190 


FF 60 
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* B HLP 1 

* NOP 

ry 

* 

* 

* ORG x*'400' 
CHLPITA EQU $ 
* LOC LPIA 
LP1A EQU X*'0Q400° 

* LD 2 

* OUT 6 

* LD =X*AAS 
* OUT 4 

* WAIT 

* LD 28 

* BZ2T LP1ABD 
* LO =6 

* LOC XMSY 
XMSY EQU X*'040D° 

* ST 63 

* LD 24 

* SEND 0 

* LD 63 

* DEC 

* BZT SDSY 

* WAIT 

& B XMSY 

* LOC SOSY 
SDSY EQU X*O041A* 

x WAIT 

* LD =X" FF! 
* SEND 0 


HRS ASSEMBLER 5.05 


PAGE 


0073 


CHANNEL PROGRAM FOR LOOP AT LINE ADAPT (XMIT) 


GET LINE CONFIGURATION 


OUTPUT IT 


LOAD FILL CHAR. 


OUTPUT SYNC. 


FILL CHAR. 


LOAD SYNC. FLAG 


IF ZERO BRANCH TO OUTPUT CHAR. 


LOAD SYNC. CHAR 


SEND IT 


DO SIX TIMES 


TITLE DCMVA 


003312 

003313 

003314 O41F 
003315 

003316 O&3E 0110 
003317 

003320 

003321 OE3F 6063 
003324 

003325 0423 
003326 

003327 O&40 0401 
003328 

003331 O&41 EDFA 
003332 

003333 04 26 
003334 

003335 7 
003336 0&42 0190 
003339 

003342 O&43 FF6O 
003343 

003346 O&44 £404 
003347 

003348 

003349 O&45 O2€0 
(003352 

003353 042F 
003354 

003355 0&46 F550 
003358 

003359 O&47 1CE2 
003362 

003363 O0&48 0501 
003364 

003367 O&49 9O0FF 
003368 

003371 

003372 04 37 
003373 

003374 O&4A 6002 
003375 

003376 

003377 0€48 O01£0 
003380 

003381 O&4C C600 
003382 

003383 

003384 


07/28/78 


1733.9 edt Fri 


HRS ASSEMBLER 5.05 


CHARACTER FROM DATA BUFFER 


PAGE 


. WAIT 
* LOC LP1ABD 
LP1ABD EQU X'0Q41F? 

* LD, GET 

r SEND 0 OUTPUT IT 
BLCT  LP1AB 
LOC LP1AA 
LP1AA EQU X*0423? 
WAIT 

* ) LP1ABD 
LOC LP1AB 
LP1AB EQU X*0426° 
WAIT 

LD =x* FF? 
* SEND O 

. BLBT  LP1AC 
GNB 

* B LP1AA 
LOC © LP1AC 
LP1AC EQU X*042F° 

* LD 28 

. BZT LP1AC1 
* WAIT 

* LD =X‘ FF! 
* SEND 0 

* LOC _LP1AC1 
LPTAC1 EQU X*0437! 
GNB 

* WAIT 

tO B LP1A 

* NOP 

* 

. RECEIVE PROGRAM FOR CRC AND PARITY 
* 


0074 


TITLE DCMVA 


003385 
003386 
003387 
003390 
003397 
003394 
003395 
003398 
003401 
003402 
003405 
003406 
003407 
003410 
003411 
003414 
003415 
003418 


003419 


003420 
003421 
003424 
003425 
003426 
003429 
003430 
003433 
003434 
003437 
003438 
003441 
003442 
003445 
003448 
003449 
003452 
003453 
003456 
003457 
003460 
003461 
003462 
003463 
003464 
003467 
003468 
903469 
003470 
003471 


OE4D 


OE4E 


OE4F 


OE50 
OE51 
OES2 


OE5S3 


OE5S4 


QE55 
OE56 
OES? 
QOE58 
OES9 


OESA 


O£58 


OESC 


OESD 


OE 4D 


5018 


3450 


1432 


AQO1 
5018 
92 OF 
E118 


O20€E 


A001 


A052 
18€1 
08 50 
1493 
FD 32 


5014 


32E0 
O021F 


FOO? 


0221 


A0(Q1 


07/28/78 


* 


CHLP2 


* 


* 
* 


* 


1733.9 edt Fri 


JHQQ EQU X'O20E* 


* 
* 


x 


JFQQ EQU X*O21F* 


x 


x 
* 


NSTR EQU X'O221* 


* 


ORG x* 200° 
EQu 

Lo 24 
OUT 4 

LD 20 
OUT 2 
RECv 0 
WAIT 

LD 24 

c =X Fe 
BET RCVA 
LOC JHQQ 
RECV 0 
WALT 

RECV 0 

C 24 
BET JFQQ 
LD 20 
AND =X* FD! 
OUT 2 

LD 20 
OUT 2 

B JHQQ 
LOC JFQQ 
WAIT 

RECV 0 

LOC NSTR 
WALT 

RECV 0 


HRS ASSEMBLER 5.05 PAGE Q075 


GET LINE SPEED (ASYNC) OR SYNC CHAR 


OUTPUT IT 
LOAD LINE CONTROL 


OUTPUT IT 


SEE IF SYNC. LINE 


IF SYNC. SET UP TO. RECV. 


4 OR 5 SYNC. CHAR. 


RECEIVE FIRST SYNC CHAR, 


RECEIVE SECOND SYNC. 
CHECK TO SEE IF TRUE SYNC. 


SHUT OFF LINE 


SHUT LINE BACK ON 


RECEIVE THIRD SYNC. 


RECEIVE SYNC. OR START OF DATA CHAR. 


CSYNC) 


CFF) 


TITLE OCMVA 


003474 
003475 
003478 
003479 
003482 


— 003483 


003484 
003485 
003486 
003489 
003490 
003493 
003494 
003497 
003498 
003501 
003502 
003505 
003506 
003507 
003508' 
003511 
003512 
003513 
003516 
003517 
003518 
003519 
003522 
003523 
003524 
003525 
003528 
003529 
003530 
003531 
003534 
003535 
003536 
003539 
003540" 
003541 
003542 
003543 
003546 
003547 
003548 
003551 
003552 


OESE 
OESF 


OE60 


O&61 
QOE62 
OE 63 
OE64 


OE65 


OE66 


OE67 


0&68 


OE69 


OE6A 
O€68 


OE6C 


OE 6D 


OEG6E 


A092 
FF FI 
FBO1 
0228 


5017 


(9201 


E10C 
92F0 
E10F 


0232 


A311 


E312 


01€0 


0239 


FAA1 


11E3 
0801 


EOFA 


0240 


A211 


E304 
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* 


* 


* 


* 


* 


ge 


* 


REC V3 


* 
* 


* 


* 
* 


REC V2 


* 
* 


® 


c =X°FFe 
BEF NSTR 
WAIT 
Loc RCVA 
RCVA EQU X*'02288 
LO 23 
Cc =1 
BET RECV1 
C =X" EQ! 
BET RECV2 
LOC RECV3 
EQU X*0232' 
RECV 3 
STs STORE. 
BLCT RCV 
WAIT | 
B REC V3 
LOC RECV1 
EQU X*02398 
RECV 1 
' ST, STORE 
BLCT - RCV 
WAIT 
B RECV1 
LOC RECV2 
EQU x*0240° 
RECV 2: 
ST- 
BLCT RCV 
WAIT 


HRS ASSEMBLER 5.05 PAGE 


LOAD FLAG FOR TYPE OF RECV. 


IF TRUE TEST JUST CRC 


0076 


If TRUE TEST JUST 


TEST CRC AND PARITY 


INTO BUFFER 


BRANCH IF LAST CHARACTER TRUE 


TEST CRC 


IN BUFFER 


TEST PARITY 


ma ntviwinnadwenusticestalin ae iene sheath irons His eecasya comin eatennarescadcey vos 


TITLE DCMVA 


003553 
003554 
003557 
003558 
003559 
003560 
003561 
003564 
003567 
003568 
003569 
003570 
003571 
003574 
003575 
003576 
003577 
003578 
003579 
003580 
003581 
003582 
003585 
003586 
003589 
003590 
003593 
003596 
003597 
003598 
003599 
003602 
003603 
003 606 
003607 
003610 
003611 
003614 
003617 
003618 
003621 
003622 
003623 
003624 
003627 
003628 
003631 
003632 
003635 


OE6F 


0£70 


OE€71 


OE72 


0E73 


OE 74 


OE75 


OE76 


O&77 


OE 78 


OE79 


OE7A 


0&7B 


OE7C 


O&7D 


OE7E 


OE7F 


01€0 


0247 
FA90 


0032 


0201 


EODB 


0000 
OE 75 


5002 


3690 


FA 34 


0150 
1892 
OFE1 
1890 
FA 34 
9006 
0412 
513F 


5018 


wise 9 neh reroute Chute ueR ees ely ares itu cin titan eee Sou eae: ta babe ee terol sess ages dub pase ering 
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LOAD ZERO TO TURN OFF 


RECEIVE 


XMIT PROGRAM FOR CRC AND PARITY TEST 


s B RECV2 
* 
s LOC RCV 
RCV EQU X*0247° 
* LD =0 
. OUT 2 

GNB 

WAIT 
* B RCVA 
* NOP 
* 
* 
* 
‘ ORG x" 406! 
CHLP2m EQU $ 
LD 2 
* OUT 6 
* LD =X*FAt 
* OUT 4 
* WAIT 

LD 24 
* c =Xx'F! 
* BET SNC1 
* LD =X FAt 
OuT 4 
LD =6 
* LOC XMVV 
XMVV EQU X'0412° 
ST 63 
LD 24 
* SEND 0 
t LD 63 


GET LINE CONFIGURATION 


OUTPUT IT 
LOAD FILL CHAR, 


OUTPUT SYNC. FILL CHAR, 


SEE IF SYNC. LINE 
IF SYNC. LINE SEND OUT FILL CHAR (LR 4) 
AND 3 SYNC. (OR FILL) 


LOAD FILL CHAR, 


LOAD SYNC. CHAR 


SEND IT 
DO SIX TIMES 


TITLE DOCMVA 


003636 
003639 
003640 
003641 
003644 
003645 
003646 
003647 
003650 
003651 
003652 
003653 
003654 
003657 
003658 
003661 
003662 
003663 
003664 
003665 
003668 
003669 
003672 
003673 
003676 
003677 
003680 
003681 
003684 
003685 
003686 
003687 
003688 
003691 
003692 
003695 
003696 
003697 
003698 
003701 
003702 
003703 
003704 
003705 
003708 
003709 
003712 
003713 
003714 


O€80 
OE 81 


OE82 


0€83 


O£84 


OE8S 


OE86 . 


OE87 - 


OE88 
OE89 
OE8A 


OE88 


OE8C 


OE8D 


OE8E 


QOES8F 


0&90 


0E91 


6050 
3F05 


E204 


07£0 
O41F 
F401 


90FF 


60.01 
0424 
5017 
9201 
E10C 
92F0 
E10F 


042E 


1063 


E312 


01€0 
0435 


FA 10 


61€3 


OBC 


07/28/78 


1733.9 


* 
* 


* 
* 


* 


* 


SNC 1 


* 


* 


SNC3 


* 
* 


* 


* 


* 


edt Fri 

DEC 

BZT SDVY 

WAIT 

B XMVV 

LOC SOVV 
SDVV EQU X'O41F* 

WAIT 

LD =x'ree 

SEND 0 

WALT 

LOC SNC1 

EQU X'0424" 

LO 23 

fe =4 

BET CPCRC 

C =X' FO! 

BET CPPAR 

LOC SNC3 

EQU X'O42E° 

LDe ‘ 

SEND 3 

BLCT LCB1 

WAIT 

B SNC3 

LOC CPCRC 
CPCRC EQU X*0435! 

LO, LOAD 

SEND 1 

BLCT LcB1 

WAIT 

B CPCRC 


HRS ASSEMBLER 5.05 PAGE 0078 


XMIT START OF DATA CHAR. CFF) 


LOAD FLAG FOR TYPE OF SEND INST. 


If TRUE TEST JUST CRC 


IF TRUE TEST PARITY 


TEST BOTH CRC AND PARITY ON XMIT 


BRANCH ON LAST CHAR. 


DUE NEXT CHAR. 


CHAR. FROM DATA BUFFER 


XMIT CHAR. AND CALCULATE CRC 
BRANCH ON LAST CHAR. 


DUE NEXT CHAR. 


Coa Pde ei EL TRS oe aa ated aan Watalet ed SR e BEE TY UR at raed rt fee maa eee me can ce Dey eect alent vallenered cre cadena Cra wel anda ona wasabi oor enn emai ae 


TITLE OCMVA 


003717 O&92 EQFA 
003718 
003719 04 3C 
003720 
003721 
003724 O&893 1062 
003725 
003728 O&94 €£€304 
003729 
003730 
003731 O&95 QO1€0 
003734 
003735 0443 
003736 
003737 QO&96 FAQ1. 
003738 
003741 O&97 QOFF 
003742 
003745 
003746 O€&98 60&4 
003749 
003750 O£99 O3E0 
003753 
003754 0448 
003755 
003756 QE9A DASO 
003759 
003760 OE89B 1892 
003763 
003764 O€&9C OFE1 
003767 
003768 O&9D 0501 
003769 
003772 QE9E YSOFF 
003773 
003776 
003777 0455 
003778 
003779 OESF 6050 
003782 
903783 QOEAQ 1493 
003786 
003789 OQOEAT FE32 
003790 
003791 
003792 OE&A2 02C1 
003793 
003796 OEA3 EDC? 


003797 


07/28/78 
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* LOC CPPAR 
CPPAR EQU x*043C* 

* LD~s LOAD 
* SEND 2 

* BLCT LCB1 
* WAIT 

* B CPPAR 
* LOC LCB1 
LCB1 EQU X'0443' 

* WAIT 

t LD =X" FF! 
nw SUND 0 

* BT LCBe 
* B SNC 1 
* LOC LCB2 
LCB2 EQU X'044B° 

* LD 24 

* c =X Ft 
* BET NwT 

* WAIT 

* Lo =X" FF! 
* SEND 0 

* LOC NWT 
NWT EQU xX*'0455'° 

x LO 20 

* AND =X *FE* 
* OUT 2 

* GNB 

* WAIT 

* B SNC1. 
* NOP 


i 


Metal Adalat ocala tee cote Bat de CaS MR aaa etiam Bee eo Pu at Be Dah 


HRS ASSEMBLER 5.05 


CHAR. 
MIT CHAR. 


OUTPUT DUMMY CHAR. 


hen eed aun cba te atelcal 2S Teall aon et CATE a UR ERI To teat Bed 


PAGE 


0079 


FROM DATA BUFFER 


WITH PARITY 


FOR SHIFT REG. 


BRANCH ON LAST BLOCK 


TITLE DOCMVA 


003798 
003799 
003800 
003801 
003802 
003803 
003804 
003805 
003806 
003809 
003810 
003813 
003814 
003817 
003820 
003821 
003824 
003825 
003826 
003829 
003830 
003833 
003834 
003837 
003838 
003839 
003840 
003843 
003844 
003845 
003848 
003849 
003852 
003853 
003856 
003857 
003860 
003861 
003864 
003865 
003868 
003869 
003872 
003873 
003876 
003879 
003880 
003883 
003884 


OEAS 


OEAS 


OEA6 


OEA7 


OE A8 
OEASD 
OEAA 


OE£AB 


OEAC 
OEAD 
OEAE 


OEAF 


OE80 
O€B1 
0EB2 
OE B83 
OEB4 


OEBS 


0000 
OE AS 


0200 


5018 


3450 


1432 


A001 
50 18 
92 OF 
E121 


020E 


AQO1 
5018 
531C 


5138 


A052 
3BE1 
0B 50 
1493 
FD 32 


5014 


07/28/78 
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CHLP3 


* 
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HRS ASSEMBLER 5.05 PAGE 0080 


RECEIVE PROGRAM FOR CHARACTER SIZE TEST 


RCP3 EQU xX*0200* 


* 


* 
* 


* 


JHYY EQU x*0O20E' 


* 
* 


ORG x*200° 
EQu $ 

LOC RCP3 
LD 24 

OuT s 

Lo 20 

OUT 2 

RECV 0 

WAIT 

LD 24 

c =X? pt 
BET RCCH 
LOC JHYY 
RECV 0 

WALT 

LD 24 

AND 28 

ST 59 
RECV 0 

c 59 

BET JFYY 
LO 20 

AND =X" Fp! 
OUT 2 

LD 20 


OUT 2 


GET LINE SPEED CASYNC) OR SYNC CHAR 
OUTPUT IT 


OUTPUT LINE CONTROL 


SEE IF SYNC TO RECV. 


INPUT. FIRST SYNC. 


INPUT SECOND SYNC, 
CHECK TO SEE IF TRUE SYNC. 


SHUT OFF LINE 


SHUT LINE BACK ON 


(SYNC) 


TITLE DCMVA 


003887 
003888 
003891 
003892 
003893 
003894 
003895 
003898 
003899 
003900 
003901 
003902 
003905 
003906 
003909 
003910 
003913 
003914 
003915 
003916 
003917 
003920 
003921 
003924 
003925 
003926 
003927 
003928 
003931 
003932 
003933 
003936 
003937 
003938 
003939 
003942 
003943 
003944 
003945 
003948 
003949 
003950 
003951 
003954 
003955 
003956 
003959 
003960 
003961 


OEBS6 


OEB?7 


OEB8 


OEB9 
OEBA 


OEBB 


OEBC 


OEBD 


OEBE 


OEBF 


OECO 


OEC1 


OEC2 


OEC3 


OEC4 


32E0 


0225 


EA C1 


0227 


A001 


A092 
TF FI 
FBO1 
O02 2€ 
5002 


E208 


02 32 


A211 


—30B 


01 £0 


0239 


FAAO 


11€3 
0461 


EOFA 
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x B JHYY 
* LOC JFYY 

JFYY EQU xX*0225° 

* WAIT 

* RECV 0 INPUT THIRD SYNC. 
* Loc RCKSY 

RCKSY EQU X*0227° 

* WAIT 

* RECV 0 

* c =X'1F¢ SEE IF START OF DATA CHARACTER 
* BEF RCKSY 

* WAIT 

* LOC RCCH 

RCCH EQU X'022E!* 

* ~ LD 2 CHECK FOR FIVE BIT CHAR. 
* B2T NPRY 

* RECV. CHAR WITH PARITY 6-7 BIT CHAR. 

* LOC PRYT 

PRYT EQU X'0232! 

* RECV 2 

* ST 

* BLCT SHFL 

* WAIT 

* B PRYT 

* RECV. FIVE BIT CHAR, NO PARITY 

* LOC NPRY 

NPRY EQU xX'Q239! 

* RECV 0 

* ST 

* BLCT SHFL 

k WAIT 

* B NPRY 

* TURN OFF THE LINE 


* LOC SHFL 


TITLE DCMVA 07/28/78 1733.9 edt Fri HRS ASSEMBLER 5.05 PAGE 0082 


003962 0240 SHFL EQU X'0240° 

003963 x LD =0 

003966 O&CS 9000 

003967 « OUT 2 

003970 * GNB . 

003971 O&C6 3202 

003972 * WAIT 

003973 * B RCP3 

003974 OEFC7 O1E0 

003977 * NOP 

003978 OEC8 BADD 

003979 * 

003980 * TRANSMIT PROGRAM FOR CHARACTER SIZE TEST 

003981 * ORG x*400° 

003982 OE C9 CHLP3A EQU $ 

003983 * LD 2 GET LINE CONFIGURATION 
003986 OEC9 5002 

003987 * OuT 6 OUTPUT IT 

003990 * LD =X* Fat LOAD FILL CHAR, 

003991 OECA 3690 | 

003994 * OUT 4 OUTPUT SYNC. FILL CHAR. 
003997 OECB FA34 

003998 ; * WAIT 

003999 LD =X*1F* LOAD DEFAULT MASK TO STRIP 5 BITS 
004000 OECC 0190 

004003 * ST 27 

004004 OECD 1F51 

004007 * ST. 28 

004008 OECE 1851 

004011 | * LD =X‘ FA! LOAD FILL CHAR. 

004012 OECF 1¢€90 3 

004015 * OUT 4 OUTPUT SYNC. CHAR. 
004018 OEDO FA34 

004019 ie LD 2 

004022 O&D1 5002 

004023 * BZ2T XPYQ 

004026 O£D2 £222 

004027 * SET MASK TO STRIP BITS FOR SYNC. CHAR. ON RECV. SIDE 
004028 * C =X*4Q* 

004031 O&D3 9240 ON 
004032 * BEF N61 ~ « 
004035 OfD4 F10A es 
004036 * LD =X'3r! 

004039 OFDS 903F 

004040 * ST 28 

004043 OFD6 511C 

004044 * SR 


004045 * ST 27 
004046 OFD7 0751 . 


TITLE OCMVA 


004049 
004050 
004053 
004054 
004055 
004056 
004059 
004060 
004063 
004064 
004067 
004068 
004071 
004072 
004073 
004076 
004077 
004080 
004081 
004082 
004083 
004086 
004087 
004090 
004091 
004092 
004093 
004096 
004097 
004098 
004099 
004102 
004103 
004106 
004107 
004110 
004111 
004114 
004115 

a 004116 
( 004117 

; 004120 
004121 
004124 
004127 
904128 
004131 
004132 
004133 


OED8 


OED 
OEDA 
OE0B 
OEDC 
OEDD 
OEDE 


OEDF 


OEEO 


OFE1 


OEE2 


OEES 
QEES4 
OEES 


OEE6 


OEE? 
OEE8 
OEE 


OEEA 


1BE0 
0269 
1592 
80F1 
0A 90 
7FS1 
1C 07 
5118 
E008 
0276 
9OFF 


517 1¢ 


0751 
0270 
1B50 
1892 
OF E1 
1590 
0285 
0651 
3F50 
1860 


SO 3F 
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* B XPYQ 

* Loc N61 

N61 EQU X*0269! 

* C =x'8go' 

* BEF N71 

k LD =x'7Fe 

* ST 28 

* SR 

* ST 27 

* B XPYQ 

* LOC N71 

N71 EQU X*0276* 

* LD =x'FF! 

* ST 28 

* SR 

* ST- 27 

* LOC XPYQ 

XPYQ EQU X'027D° 

* LD 24 

* C =x'Fe 

* BET XMNS BRANCH ON A 
* LD =6 

* LOC XMZZ 

XMZZ EQU X'0285! 

* ST 63 

* LD 24 LOAD SYNC. 
* SEND 0 SEND IT 

* LD 63 DO SIX TIME 
* DEC 

* BZT $D22 


0083 


SYNC. 


CHAR 


S 


LINE 


TITLE DCMVA 07/28/78 1733.9 edt Fri HRS ASSEMBLER 5.05 PAGE 0084 


004134 QE&EB OS5SE2 


004137 * WAIT 

004138 OE£EC 0401 

004139 * B XMZ2 

004142 OE&ED EOFS | 

004143 | Loc $022 

004144 0292 SdZZ EQU x'0292" 

004145 * WAIT 

004146 LD =xiiF? 

004147 OEEE 0190 

004150 * SEND 0 XMIT START OF DATA CHAR. 
004153 OE&EF 1F60 

004154 * WALT 

004155 Loc XMNS 

004156 0297 XMNS EQU X'0297° 

004157 * LD 2 

004158 OE£FO 0150 

004161 * BZT XNPY- 

004162 OEF1 O2E2 

004165 * SEND DATA WITH PARITY 

004166 LOC XPY 

004167 0298 XPY EQU X*029B" 

004168 LD 

004169 OEF2 OA10 

004170 * AND 27 

004173 OEF3 5318 

004174— * SEND 2 

004177 * BLCT  EDXT 

004178 OEF4S 62E3 

004181 * WAIT 

004182 O&FS 0D01 

004183 * B XPY 

004186 OEF6 EDFB 

004187 a SEND DATA FIVE BIT NO PARITY 

004188 Loc XNPY 

004189 02A4 XNPY EQU X*O2A4°* 

004190 * LD 

004191 AND 27 

004192 OEF7 1053 ’ . 
004195 * SEND 0. os 
004198 OE&F8 1860 ae 
004199 * BLCT  €DXT he” 
004202 OFFI £304 

004203 : * WAIT 

004204 * B XNPY 

004205 QEFA O1E£0 

004208 * XMIT DUMMY CHAR. TO SHIFT LAST DATA 

004209 Loc EOXT 


004210 O2AD EOXT EQU X*O2AD* 


TITLE DCMVA 


004211 
004212 
004213 
004216 
004217 
004220 
004221 
004224 
004225 
904226 
004229 
9004230 
004231 
004232 
004235 
004236 
004239 
004240 
004243 
004244 
004245 
904246 
004249 
004252 
004253 
004254 
004255 
004256 
004257 
004258 
004261 
004262 
004 263 
004264 
004265 
004266 
004267 
004268 
004269 
004272 
004273 
004276 
004277 
004280 
004 281 
004284 
004285 
004288 
004291 


OEFB 


OEFC 


OEFD 
OEFE 


OEFF 


OFOO 
OFO1 


OFO2 


OFO3 


OFO4 


OFOS 


OF06 


OFQO7 


OFO8 
OFO9 


OFOA 


OFOB 


OFOC 


F801 


5018 


60E4 
0401 
EQE2 
02 86 
5018 
92 0F 


E105 


0150 
1B60 


02c0 


0201 


EQEA 


0000 
OF 08 


900A 
511¢€ 


5002 


3650 


1834 


07/28/78 


* 


Seat 
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NXTB EQU X'02B6' 


* 


* 
EOP EQU 


+ ££ & & 


CHLP4 
k 


* 


WAIT 
LD 27 

SEND 0 

BLBT NXTB 

WAIT 

B XMNS 

Loc NXTB 

LD 24 

c =X? 

BET EOP 

WAIT 

Lo 27 

SEND 0 

LOC EOP 

x*02C0* 

GNB 

WAIT 

B EDXT 

NOP 

RECEIVE PROGRAM FOR OVERRUN TEST 

ORG x* 200° 

EQU $ 

LD =10 

ST 28 

LD 2 

ouT 6 

Lo 24 

OUT 4 OUTPUT IT 


GET LINE SPEED (ASYNC) OR SYNC CHAR (SYNC) 


TITLE DCMVA 


004292. 
004295 
004296 
004299 
004302 
004303 
004304 
004305 
004306 
004307 
004308 
004311 
004312 
004315 
004316 
004319 
004 320 
004321 
004324 
Q04 325 
004326 
004329 
004330 
004 333 
004 334 
004337 
004338 
004341 
004342 
004345 
004346 
004349 
004350 
004 353 
004356 
004357 
004360 
004361 
004362 
004363 
004 364 
004367 
004368 
004369 
004370 
004371 
004374 
004375 
004378 


OFOD 


OFOE 


OFOF 
OF10 


OF11 


OF12 


OF13 
OF14 
OF15 
OF16 


OF1? 


0F18 
OF19 


OFA 


OF1B 


OFIC 


OF1D 


5014 


32A0 


O20F 


0750 


1892 


OFE1 


0215 


1BA0 


01 A0 
5218 
E108 
5014 


93 FD 


3250 
1432 
EOFO 


0226 


01 A0 


0228 


01 A0 


92FF 
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* 
* 
* 


BEG EQY 
* 


* 


JHRR EQU X*0215' 


* 


k 


* 


JFRR EQU X'0226" 


* 
* 


* 


NSCH EQU X‘'Q228' 


* 
* 


* 


LD 20 
OUT 2 
RECV O 
WALT 

LOC BEG 
X*O20F° 

LD 24 

C =x‘ 
BET RMCH 
LOC JHRR 
RECV 0 
WAIT 

RECV O° 

C 24 
BET JFRR 
LD 20 
AND =X" FD! 
OuT 2 

LD 20 
OUT 2 

B “JHRR 
Loc JERR 
WALT 

RECV O 

LOC NSCH 
WALT 

RECV O 

C =X*pe! 


HRS ASSEMBLER 5.05 PAGE 0086 


1ST SYNC. 


2ND SYNC. 


SHUT OFF LINE 


SHUT LINE BACK ON 


3RD SYNC. 


CHECK TO SEE IF TRUE SYNC. 


SEE IF START DATA CHAR, 


TITLE DCMVA 


004379 
04382 
904 383 
004384 
004385 
004 386 
004 389 
004390 
004391 
004 392 
004395 
004396 
004397 
004400 
004401 
004402 
004403 
004404 
004407 
004408 
004411 
004412 
004413 
004414 
004415 
004418 
004419 
004420 
004421 
004422 
004425 
004426 
004429 
004430 
004431 
004432 
004433 
004436 
004437 
004440 
004441 
004442 
004443 
004444 
004445 
004448 
004449 
004452 
004453 


OF1TE 


OFITF 


OF 20 
OF 21 


OF 22 


OF23 


OF 24 


OF25 


OF26 
OF27 


OF 28 


OF 29 


OFA 


OF 2B 


OF2C 


FI FB 


O22F 


01A0 


11€3 
0401 


EOFA 


02 36 


9000 


3202 


01€0 


0230 
D350 
1DFe 
0206 
0242 
S511E 
905E 


0246 


OSE2 
O3£0 


0248 
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* BEF NSCH 
* WAIT 
* LOC RMCH 
RMCH EQU X*O022F* 
* RECV 0 
* ST 
* BLCT REND 
* WAIT 
* B RMCH 
* 
* LOC REND 
REND EQU X'0236' 
* a) =f) 
* OUT 2 
* GNB 

WAIT 

B BEG 
* 
* LOC DLAY 
DLAY EQU x'023D° 
* LD 29 
* BZF EDLY 
* RET 
* LOC EDLY 
EDLY EQU x*0242? 
* ST 30 
* LD =94 
* LOC LESS 
LESS EQU X*'0246° 
* DEC 
* BZT NXC 
* B LESS 
* LOC NXC 


NxC EQU X'024B° 


Wesabe aed iatd ode cats AM ib Sa Natalee dae adios ale ie a eda 6 al Ge ial Nel. tall ae Shee end ea ta ame ote ates La be data ean fe aiden 2A da? ag olen a aoa oe WTA added Coe Mahe 
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0087 


TITLE DCMVA 


004454 
004455 
004458 
004459 
004460 
004463 
004464 
004465 
004466 
004467 
004468 
004469 
004470 
004471 
004472 
004473 
004474 
004475 
004476 
004479 
004480 
004483 
004484 
004487 
004488 
004491 
004494 
004495 
004498 
004499 
004500 
004501 
004504 
004505 
004508 
004509 
004512 
004513 
004516 
004517 
004518 
004521 
004522 
004523 
004524 
004527 
004528 
004529 
004530 


OF2D 
OF2E 


OF2F 


OF30 


OF31 
OF32 
OF 33 
OF34 
OF35 


OF36 


OF37 


OF 38 


OF39 
OF3A 


OF38 


OF3C 


OF3D 


FC50 
1€05 


F2F3 


0600 


OF 31 


0260 


0150 
1892 
OFE1 
3090 
AA 34 
9006 
026C 
513F 


5018 


6050 
3FO5 


E204 


01 £0 
0279 


F401 
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* LO 30 

* DEC 

* BZF EDLY 
* RET 

* NOP 

* 

* 

* 

* ORG x*260' 
CHLP4A EQU $ 

* LOC TOP 
TOP EQU x*0260'* 

* WAIT 

* LD 24 

* C =X * Fe 
* BET NSY 
* LD, =X*AA* 
* OUT 4 

* LD =6 

* LOC XMRR 
XMRR EQU X'O026C° 

* ST 63 

* LD 24 

* SEND 0 

* LD 63 

* DEC 

* B2T SDRR 
* WAIT 

* B XMRR 
* LOC SDRR 
SDRR EQU X'0279! 

* WAIT 


HRS ASSEMBLER 5.05 


TRANSMIT PROGRAM FOR UNDERRUN TEST 


SEND IT 


PAGE 


LOAD SYNC. 


0088 


LOAD FILL CHAR. 


CHAR 


DO SIX TIMES 


ello i thasbachae bie te eh ak te rican da ity Baclt Lenn tor abe Maciel ates act ba 


TITLE DCMVA 


004531 
004534 
004535 
004538 
004539 
004540 
004543 
004544 
004547 
004548 
004549 
004550 
004551 
004554 
004555 
004558 
004559 
004560 
004561 
004564 
004565 
904568 
004569 
004570 
004573 
004574 
004575 
004576 
004577 
004580 
004581 
004584 
004585 
004588 
004589 
004590 
004593 
004594 
004595 
004596 
004597 
004598 
004601 
004602 
004605 
004 606 
004607 
004608 
004611 


OF3E 


OF3F 
OF40 


OF41 


OF42 


OF43 


OF 44 
OF4S 
OF46 


OF47 


OF48 


OF49 
OF4GA 


OF48 


OF4C 


OF 4D 


OF4E 


JOFF 


6001 
9002 
511A 


02 82 


1060 


SOA 


0551 
1AE2 
0401 


EQFS 


O02 &E 


FOAE 


2551 
3¢ C1 


E016 


0296 


1060 


SOIC 


°0551 
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* 
NZ7 EQU 
* 
* 


* 
_& 


COLY EQU X'O28E* 


* 


NSY EQU 


LD =X Fr! 
SEND 0 
WAIT 

LD =2 
ST 26 
Loc NZ7 
X*0282!° 

LD 

SEND 0 

LD 26 
DEC 

ST 26 
BZT CDLY 
WAIT 

B NZ? 
Loc CDLY 
BS DLAY 
IN 5 

ST 60 
WAIT 

8 NT3 
LOC NSY 
X*0296' 

LD 

SEND 0 

LO 28 
DEC 

ST 28 
BZT OVLY 


EO AEN oS aD SE ORO a OE T  R OCO O ' as 
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GO TO CHAR. 


SEE IF UNDERRUN BIT SET 


0089 


DELAY 


TITLE DCMVA 


004612 OF4F I1CE2 
004615 
004616 OF5SO 04C1 
004617 
004620 OF51 EDFS 
004621 
004622 O2A2 
004623 
004626 OF52 FOIA 
004627 
004630 
004631 OF53 60F0 
004634 
004637 OFS4 9725 
004638 
004641 OFSS 513¢ 
004642 
004643 
004644 O2AB 
004645 
004646 OF56 0110 
004647 
004650 
004651 OFS? 60€3 
004654 
004655 OF58 0401 
004656 
004659 OF59 EOFA 
004660 
004661 
004662 0282 
004663 
004664 
004665 OFSA 0190 
004 668 
004671 OF5SB- FF60 
004672 
004675 OFS5SC €404 
004676 
004677 
004678 OF5D O1€E0 
004681 
004682 0288 
004683 
004684 OFSE A650 
004687 
004688 OFSF 1892 
004691 
004692 OF60 OFE1 
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* WAIT 

* B NSY 

* LOC OVLY 

OVLY EQU xX*02A2? 

* BS DLAY 

* SEND 0 

* BS DLAY 
* IN 5 

* ST 60 

* WAIT 

* LOC NT3 

NT3 EQU X*O2AB* 

* a) 

* SEND 0 

* BLCT EXM1 

* WAIT 

* B NT3 

k 

* LOC EXM1 

EXM1 EQU xX'02B2' 

* WAIT 

* LD =X*Fret 

* SEND QO 

* BL BT EXM 

* WAIT 

B TOP 

* LOC EXM 

EXM EQU xX*02BB° 

ry LD 24 

* C =X *F* 

* BET NSXM 
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PAGE 


0090 


ff ~‘ 
. 


. 


TITLE OCMVA 


004695 
004696 
004697 
004700 
004701 
004704 
004705 
004 706 
004707 
004708 
004711 
004712 
004715 
004716 
004719 
004720 
004723 
004724 
004725 
004728 
004729 
004730 
004 731 
004732 
004733 
004734 
004735 
004736 
004737 
004738 
004741 
004742 
004745 
004746 
004749 
004750 
004753 
004754 
904757 
004758 
004761 
004762 
004765 
004766 
004 769 
004770 
004773 
004774 
004775 


OF 61 


OF 62 


OF 63 
OF 64 
OF65S 


OF 66 


OF 67 


OF 68 


OF69 


OF6A 
OF 6B 
OF6C 
OF6D 
OF6E 
OF6F 
OF70 
OF71 


OF72 


0501 


9OFF 


O02C5 
6002 
5014 
VSFe 


5114 


3201 


EQEC 


0000 
OF 6A 


0200 


9007 


S11E 


501D 


92F0 


F109 


9010 


S13A 


9002 


EQO08 


0212 


. pe ttenattntEe Slant wey mbate ot ag Siti, Gites te iprdstlint 3 ia kok gute : tiie : “g : Pane ' : : : . g 
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. WAIT 
LD =X' FF! 
* SEND 0 
* Loc NSXM™ 
NSXM EQU xX'02C5! 
. GNB 
* Lo 20 
s AND =X" FE! 
ST 20 
* OUT 2 
* WAIT 
8 EXM 
* NOP 
* 
* CHANNEL. PROGRAM TO LOOP AND CHECK DSC 
t 
* ORG X* 200° 
CHLP5 EQU 
* LOC TOP 1 
TOP1 EQu x*0200° 
* LD =7 
* ST 30 
LD 29 
* c =X" FO! 
BEF TOP3 
* LD =16 
ST 58 
* LD =2 
* 8 TCMBI 
Loc TOP3 


TOP3 EQU X*0212° 


0091 


INTO OSS 


TITLE DCMVA 


004776 
004779 
004780 
004783 
004 784 
004787 
004788 
004791 
004792 
004793 
004794 
004797 
004798 
004799 
004800 
004803 
004804 
004807 
004 808 
004811 
004812 
004815 
004816 
004819 
004820 
004823 
004824 
004827 
004828 
004829 
004830 
004833 
004834 
004837 
004838 
004841 
004842 
004843 
004844 
004847 
004848 
004851 
004852 
004853 
004854 
004857 
004858 
004859 
004860 


OF73 
OF74 


OF75 


OF76 © 


OF77 


OF78 
OF79 
OF7A 
OF7B 
OF7C 
OF 7D 


OF7E 


OF7F 


OF 80 


OF 81 


OF82 


OF83 


OF84 


92.FC 
E105 
9008 
S13A 
O21A 
9000 
O21C 
54419 
9204 
F109 
9080 
541¢ 
511¢ 
9004 
022A 
5639 


541¢ 


3290 
AFS51 
0233 
1F90 
0235 


FFOS 


0092 
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* C =x*Frc! 
* BET TOP2 
* LD =8 
* ST 58 
* LOC TOP2 
TOP2 EQU X*021A* 

* LD =0 

* LOC TCMB1 
TCMB1 EQU X*021C* 

* ST 25 

* C =4 

* BEF DSET 
* LD =X * 80° 
* OR 28 

* ST 28 

* LD =4 

* LOC DSET 
DSET EQU X*022A* 

* TLU 57 

* OR 28 

* OUT 2 

*HH 

aH 

* LD =175 1 SEC TIME DELAY 
* ST 31. 

* LOC LOOP2 
LOOP2 EQU x'0233% 

* LO =255 
* LOC LOOP! 
LOOP1 EQuU x*0235' 

* DEC 
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004861 * CCH 
004862 * CCH 
004863 OF85 0404 
004864 * BZF LOOP! 
004867 OF86 F2FC 
004 868 * LD 31 
004871 OF87 SO1F 
004872 * DEC 
004873 * ST 31 
004874 OF88 0551 
004877 * BZF LOOP2 
004878 OF89 I1FF2 
004881 « H 
004882 *HH 
004 883 * IN 5 
004886 OF8A F325 
004887 * ST 
0048388 + 1d 25 
004889 OF8B 1150 
004892 * ¢ 30 
004893 OF8C 1952 
004896 * BET ENDTC 
004897 OF8D 1EE1 
004900 * XOR =X * FF! 
004901 OF8E 0895 
004904 * DEC 
004905 OF8F FFOS 
004906 * XOR =X* FF! 
004909 OF90 9SFF 
004910 * B TCMB1 
004913 OF91 E0CD 
004914 * LOC ENDTC 
004915 0250 ENDTC EQU X*0250° 
004916 * GNB 
004917 * WAIT 
004918 OF92 0201 : 
004919 * B TOP1 
004922 OF93 EDAD 
sa 004923 n NOP 
j 004924 * CHANNEL PROGRAM FOR BROADBANDCRECV) 
| 004925 * ADAPTER READY TEST & UNDERRUN OVERRUN TEST 
Me 004926 * ORG x*200* 
004927 OF 94 CHLP6 EQU $ 
004928 * LO 24 GET LINE SPEED CASYNC) OR SYNC CHAR CSYNC) 
004929 OF94 0050 | 
004932 * OUT 4 OUTPUT IT 
004935 OF9S 1834 
004936 * LD 20 


004939 OF96 5014 


TITLE DOCMVA 


004940 
004943 
004944 
004945 
004946 
004947 
004950 
004951 
004952 
004955 
004956 
004959 
004960 
004963 
004964 
004967 
004968 
004971 
004974 
004975 
004978 
004979 
004982 
004983 
004986 
004987 
004988 
004989 
004990 
004993 
004994 
004995 
004998 
004999 
005002 
005003 
005006 
005007 
005010 
005011 
005014 
005015 
005016 
005019 
005020 
005021 
005022 
005025 
005026 


OF97 


OF98 


OF99 


OF9A 


OF9B 


OF9C 


OF9D 


OFIE 


OFOF 


OFAO 


OFA1 
OFA2 
OFA3 
OFAG 


OFAS 


OFA6 


OFA? 


OFA8 


3201 


O025C 


A001 


A052 
18E1 


0850 


. 1493 


FD 32 


5014 


32E0 
02 6D 


F001 


A001 
SO1E 
F22D 
FSOA 


5014 


0279 


32A0 


11F5 


FDES 
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* 


SINK EQU xX*025C° 


* 
* 


* 
* 


* 


NSYK EQU X*026D° 


* 


* 


*& 
* 


OUT 2 
WAIT 

LOC “SINK 
RECV 0 
WALT 

RECV 0 

C 24 
BET NSYK 
LOD 20 
AND =X* Fp? 
OUT 2 

LD 20 
OUT 2 

B SINK 
LOC NSYK 
WALT 

RECV 0 
WAIT 

LD 30 
BZF UDOR 


BARF RERR 


BUFE EQU X*'0279° 


* 


LO 20 
OUT 2 
LOC BUFE 
RECV 0 

ST 


BARF BUFE 


BART CHRL 


HRS ASSEMBLER 5.05 PAGE 


0094 


INPUT 1ST SYNC, 


INPUT 2ND SYNC. 


cecauatamantuth cele RS oa a Cha al ae! ceo Ton om aaa ease Manat, aac ae te eaasaiee, dori bleh ares ce see coin uer wy/on ahh eld Aw 


TITLE OCMVA 


005029 
005030 
005031 
00503e 
005035 
005036 
005039 
005040 
005041 
005042 
005045 
005046 
005049 
005050 
005053 
005054 
005057 
005058 
UG5059 
005060 
005061 
005064 
005065 
005066 
005069 
005070 
005071 
005072 
005075 
005076 
005079 
005082 
005083 
005 086 
005087 
005090 
005091 
005094 
005095 
005098 
005099 
005102 
005103 
005104 
005105 
005108 
005109 
005112 
005113 


OFAY 


OFAA 


OFAB 
OFAC 
OFAD 


OFAE 


OFAF 


OFBO 


OFB1 


OFB2 
OFB3 
OFB4 
OFBS 
OFB6 


OFB? 


OFB8. 


OFB9 


OFBA 


OFBB 


O27F 
0590 
FF S51 
0283 
3090 
3351 
3€90 
7F 51 
O2 8B 


3801 


A011 


5038 


OSE2 
3651 
3B 25 
9304 
F2F2 
9000 
513€ 
E029 
02A0 
920F 


E106 
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Loc RERR 
Eau X'O27F* 
LO =x" Fr? 
ST 61 
Loc CHRL 
Eau xX*0283° 
LD =x*33! 
ST 62 
LD =127 
ST 59 
Loc BEPY3 
BEPY3 EQU X'028B! 
wAltl 
RECV O 
ST 
LD 59 
DEC 
B2T STP3 
ST 59 
IN 5 
AND =x*04* 
BZF BEPY3 
Lo =0 
ST 62 
B STP3 
Loc UDOR 
UDOR EQU X'02A0? 
¢ =X? pe 
BET UND” 
RECV O 
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CHECK BUFFER EMPTY BIT 


TITLE DCMVA 


005116 
005117 
005118 
005119 
005120 
005123 


005124 


005125 
005126 
005127 
005130 
005131 
005132 
005133 
005136 
005137 
005140 
005143 
005144 
005145 
005146 
005149 
005150 
005151 
005154 
005155 
005156 
005157 
005160 
005161 
005162 
005163 
005166 
00516? 
005168 
005171 
005172 
005175 
005176 
005179 
005180 
005183 
005184 
005187 
005190 
005191 
005192 
005195 
005196 


OFBC 


OFBD 


OFBE 


OFBF 
OFCO 


OFC1 


OFC2 
OFC3 


OFC4 


OFC5 


OFC6 


OFC? 


OFC8 


OFCI 
OFCA 


OFcB 


OFCC 


AQ11 


01€0 


O02 A9 


2090 


02AB 
4051 
3BF5 


08A0 


1150 
3805 
E203 
0286 
EOFS 


0288 


AQ11 


2551 
3€50 


1494 


0151 


1432 


01A0 
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* 
*® 


UND EQU 


* 


* 


x 


* 


* 


* 


* 


Bi E€Qu x*0288' 


* 
* 


HRS ASSEMBLER 5.05 PAGE 
st 

WAIT 

B STP3 

Loc UND 

X*O2A9? 

LD =64 

Loc FIFE 
FIFE EQU X*O2AB! 

ST 59 

BARF  FIF3 

RECV O 

ST 

LD 59 

DEC 

BZT B1 

Loc FIF3 
FIF3 EQU xX'02B6' 

a: FIFE 
Loc B1 
RECV O 
ST 
IN 5 
ST 60 
LD 20 
OR =1 
ST 20° 
OUT 2 | | TURN ON XMIT 
WALT 
RECV O 
ST 


0096 


ase tecteatittssted Gea wel LADS I AI A Ltn tab mi T tesa 


TITLE DCMVA 


005197 
005198 
005199 
005200 
005201 
005204 
005205 
005208 
005209 
005210 
005211 
005212 
005213 
005214 
005215 
005216 
005217 
005218 
005221 
005222 
005225 
005226 
005229 
005232 
005233 
005234 
005237 
* 005238 
005241 
005242 
005245 
005246 
005249 
005250 
005253 
005254 
005255 
005256 
005259 
005260 
005261 
005262 
005265 
005266 
005269 
005270 
005273 
005274 
005277 


OFCD 


OFCE 


OFCF 


OFDO 


OFD1 


OF D2 


OFD3 


OFD4 


OFDS 


OF D6 


OFD?7 


OFD8 


OFD9 


OFDA 


OFDB 


OFDC 


1101 
02¢8 


9000 


3202 


0100 


OF D1 


S002 


3650 


1834 


0125 
9304 
E205 
9011 
513 
0410 
9003 
0412 
5138 


5018 


6050 


2k veal Deltas TUMenaatae cat sae, dca anaes taal na mala te ee et Se ene Sen link Sits eb me Lt eels an sa easton 
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* WAIT 
* LOC STP3 
STP3 EQU xX'02C8* 
* LO =0 
* OUT 2 
* GNB 
* WAIT 
* NOP 
* CHANNEL PROOGRAM FOR BROADBAND LOOPC(XMIT) 
* ADAPTER READY & UNDERRUN OVERRUN TEST 
* 
te ORG x*400° 
CHLP6A EQU $ 
* LD 2 GET LINE CONFIGURATION 
OUT 6 OUTPUT IT 
a) 24 
& OUT 4 
WAIT 
* IN 5 CHECK BUFFER EMPTY BIT 
* AND =X'Q4' 
* B2T BEPY 
* LD =x" 94! 
* ST 62 
* LOC BEPY 
BEPY EQU x*0410° 
* LO =3 
* LOC XMBB 
XMBB EQU X*0412° 
* ST 59 
* LO 24 LOAD SYNC. CHAR 
SEND 0 SEND IT 
LD 59 DO SIX TIMES 
* DEC 


wo NlnaleaalinisadnE De Sitaaanits Ot Shtaed FE aa kl PNT adh Sn! ABO UE OOS Oo rn ceases i Mmmm wanton 


TITLE DCMVA 


005278 
005279 
005282 
005283 
005284 
005285 
005288 
005289 
005290 
005291 
005292 
005295 
005296 
005299 
005300 
005303 
005304 
005307 
005308 
008311 
u05312 
005315 
005316 
005317 
005318 
005321 
005322 
005323 
005326 
005327 
005330 
005331 
005332 
005335 
005.336 
005339 
005340 
005341 
005342 
005345 
005346 
005349 
005350 
005353 
005354 
005357 
005358 
005361 
005362 


OFDD 


OFDE 


OFDF 


OFEO 
OFE1 
OFE2 
OFE3 


OFES 


OFE5 


OFE6 


OFE?7 


OFE8 
OFE9 
OFEA 


OFEB 


OFEC 
OFED 
OFEE 


OFEF 


3805 


E204 


01E0 
O41F 
F401 
SOE 
F237 
5014 


93FD 


3290 


04 2B 


3A51 


3B10 


6050 
3805 
E203 
EOF6 


04 36 


2593 
O4F2 
0590 
2251 


04 3F 
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* 
* 


* 


SDBB EQU X*041F* 


* 
* 


* 


* 


PGCX EQU X'042B? 


* 


* 


* 
ALD EQU 


* 
* 


* 


* 


* 
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BZT $dB8 
WAIT 

8 XMBB 
LOC SDBB 
WALT 

Lb 30 

BZF § ORUD 
Lo 20 

AND = =X" FD¢ 
our 2 

LD =58 
LOC PGCX 
ST 59 

Lo 

SEND 0 

LD 59 

DEC 

BZT ALD 

B PGCX 
LOC  — ALD 
X*04368 

IN 5 CHECK BUFFER EMPTY BIT 
AND  =—- =X "04" 
BZF BEPY1 
LD =x*22° 
ST 62 

Loc —-BEPY1 


BEPY1 EQU X*O43F* 


TITLE DCMVA 


005363 


005364 
005367 
005368 
005369 
005370 
005373 
065374 
005375 
005378 
005379 
005382 
005 383 
005 384 
005387 
005388 
005391 
005392 
005393 
005394 
005397 
005398 
005399 
005400 
005403 
005404 
005407 
005408 
005409 
005410 
005413 
005414 
005417 
005420 
005421 
005424 
005425 
005426 
005427 
005430 
005431 
005434 
005435 
005438 
005439 
005442 
905443 
005446 
005447 


OFFO 


OFF1 


OFF2 


OFF3 
OFFS 
OFFS 


OFF6 


OFF? 


OFF8 


OFF9 


OFFA 
OFFB 
OFFC 


OFFD 


OFFE 
OFFF 
1000 
1001 


1002 


3—90 
0441 
4651 


3810 


6050 
3B05 
E206 


ES F6 


01£0 


04 4F 


0590 


FFS1 


0453 


3¢ 50 


1493 


FC 32 


E029 


O45A 


92 0F 


F1OF 


5014 


O3FE 


5114 


07/28/78 1733.49 edt Fri 


* LD =70 
* LOC AL76 
AL76 EQU X'0441° 
* ST 59 
* LD 
SEND 0 

LD 59 
* DEC 
* BZT AL77 
* BART  AL76 

WAIT 
* B TRUV 
* Loc AL77 
AL77 EQU X'O44F* 
* LD  . =Xx*FFS 
ST 60 
* LOC TRCV 
TRCV EQU X'0453! 
* LD 20 
* AND sx* Fc? 
. OUT 2 
* B ALD1 
LOC ORUD 
ORUD EQU X'045A' 
* c =x¢Fe 
* BEF OVR 
* LD 20 
* AND =X‘ FE! 
* ST 20 
s OUT 2 
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TURN OFF XMIT AND RECV. 


TURN OFF XMIT 


TITLE DCMVA 


005450 


© 005451 


005452 
005453 
005456 
005457 
005458 
005459 
005460 
005463 
005464 
005465 
005466 
005467 
005468 
005471 
005472 
005475 
005476 
005479 
005480 
005481 
005482 
005485 
005486 
005489 
005490 
005491 
005494 
005495 
005498 
005499 
005502 
005503 
005504 
005505 
005506 
005507 
005510 
005511 
005512 
005515 
005516 
005519 
005520 
005521 
005522 
005523 
005526 


1003 
1004 


1005 


1006 


1007 
1008 


1009 


100A 


1008 


100¢ 
1000 


100E 


100F 


1010 


1011 


1012 


3201 
1060 


0201 


E017 
04 6C 


1060 
ES FO 
9O4A 
04 72 
ST1E 


F508 


1060 
SO1E 


E204 


047D 
O5E0 
04 7F 
F425 


513¢ 


0482 


$014 
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r WAIT 
* ) 

r SEND O 

* GNB 

r WAIT 

* B ALD1 
* ar 

* Loc OVR 

OVR EQU X*046C? 

* LD 

r SEND O 

r BART  OVR 

r Lo =74 

LOC CNT 

CNT EQU xXx*0472! 

te ST 30 

* BARF  ROTR 
r LD 

to, SEND O 

LD 30 

r B2T OVCK 
* DEC 

s LOC ROTR 
ROTR EQU x*047D! 

rn B CNT 

. LOC OVCK 
OVCK EQU X*O47F* 

IN 5 

* ST 60 

* 

Loc ALD1 
ALD1 EQU X*0482! 

LD 20 
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PAGE 


0100 


TITLE DCMVA 


005527 
005530 
005531 
005534 
005535 
005538 
005539 
005540 
005541 
005542 
005543 
005544 
005547 
005548 
005549 
005550 
005551 
005552 
005553 
005554 
005557 
005558 
005561 
005562 
005565 
005568 
005569 
005570 
005571 
005572 
005575 
005576 
005577 
005580 
005581 
005584 
005585 
005588 
005589 
005592 
005593 
005596 
005597 
005600 
005601 
005604 
005607 
005608 
005611 


1013 


1014 


1015 


1016 


1017 


1018 


10719 


107A 


1018 


101¢C 
101D 
1O1E 
10O1F 


1020 


1021 


1022 
1023 


O3FE 


5114 


3202 


048A 


01£0 


FE OO 


1018 


5018 


3450 


1432 


0207 


01A0 


01A0 
5218 
E108 
5014 


93FD 


3250 


1432 


EO FO 
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* 
TAMPA 


HLP7 


* 


AND 


ST 


OUT 
GNB 


LOC 


=x" FE! 


TAMPA 


EQU X*0O48A* 


WAIT 
B 


NOP 


CHANNEL PROGRAM FOR STOP I/0(BROADBAND RECV.) 


TAMPA 


ORG x*200' 
EQU $ 
~ LO 24 

OUT 4 

LD 20 

OUT 2 

WAIT 

LOC SINK1 
SINK1 EQU X*0207% 

RECV 0 

WAIT 

RECV 0 

C 24 

BET NSYK1 

Lo 20 

AND =X" FD" 

OUT 2 

LD 20 

OUT ra 

B SINK1 


HRS ASSEMBLER 5.05 


GET LINE SPEED CASYNC) OR SYNC CHAR CSYNC) 


OUTPUT IT 


PAGE 


0101 


INPUT 1ST SYNC. 


INPUT 2ND SYNC. 


TITLE DCMVA 


005612 
005613 
005614 
005615 
005618 
005619 
005620 
005621 
005622 
005625 
005626 
005629 
005630 
005633 
005634 
005635 
005636 
005637 
005640 
005641 
005642 
005643 
005646 
005647 
005650 
005651 
005652 
005655 
005656 
005657 
005658 
005661 
005662 
005665 
005666 
005667 
005668 
005669 
005672 
005673 
005674 
005675 
005676 
005677 
005678 
005679 
005 680 
005683 
005684 


1024 


1025 
1026 


1027 


1028 
1029 
102A 
1028 
102¢ 
102 


102E 


102F 


1030 


1031 


0218 


01A0 


O21A 


01A0 


92 0B 


FFB 


0221 


01A0 


11E3 
O6ES 
FBO1 
EO F8 
022A 


9000 
3202 


01€0 


0700 


1031 


5002 
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* LOC NSYK1 oe 
NSYK1 EQU x*0218 f 
* WAIT ae 
k RECV 0 

* LOC LKB1 

LKB1 EQu x*O21A* 

x WAIT 

* RECV 0 

ko C =X pg! 

* BEF LKB 1 

* WAIT 

* LOC T25A 

T25A EQU X'0221' 

* RECV 0 

* ST 

* BLCT KER 

x BART T25A 

* WAIT 

* B T25A 

* _ * BOC KER 

KER EQU X*O22A* 

* LD =0 

* OUT 2 

* GNB 

* WAIT 

x B SINK1 

* NOP 

i w ~ 
* Nae y 
* CHANNEL PROGRAM FOR STOP 1/0 (BROADBAND XMIT) es 
* 

x ORG x*400° 

CHLP7A EQU $ 

* LD 2 GET LINE CONFIGURATION 

* OUT 6 OUTPUT IT 


0102 


on 


ay, 


TITLE DCMVA 


005687 
005688 
005691 
005694 
005695 
005696 
005697 
005700 
005701 
005702 
005703 
005 706 
005707 
005710 
005713 
005714 
005717 
005718 
O05 7i9 
005720 
005723 
005724 
005725 
005728 
005729 
005730 
005731 
005732 
005733 
005736 
905739 
005740 
005741 
005742 
005743 


005744 


005745 
005748 
005749 
005752 
005753 
005754 
005755 
005756 
005757 
005760 
005761 
005764 
005765 


1032 


1033 


1034 


1035 
1036 
1037 


1038 


1039 
103A 


1038 


103C 


103D 


1O3E 


103F 


1040 


1041 


1042 


3690 


AA 34 


0190 
0409 
0651 
3-50 
1860 


30 3F 


OSE2 
0401 
EQF4 


0416 


0190 


DB 60 


0418 


0110 


60E5 


FDO] 


04 20 


1060 


E304 
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* LO =K AA" 
. OUT 4 
WAIT 
* LD =6 
s LOC XMWW 
XMWW EQU X'0409! 
* ST 63, 
* LD 24 
* SEND 0 
* LD 63 
DEC 
BZT SD WW 
* WAIT 
* B XMWW 
* LOC SDWW 
SDWW EQU X'0416! 
* WAIT 
* LD =X'DB! 
* SEND 0 
* WAIT 
* LOC 7258 
T25B8 EQU X*'0418° 
LD 
SEND 0 
* BART T258 
. WALT 
* LOC HANG 
HANG EQU X*0420° 
* LD 
. SEND 0 
* BLCT ERR’ 
* WAIT 


HRS 


ASSEMBLER 5.05 


LOAD SY 


SEND IT 


PAGE 


NC. 


0103 


CHAR 


DO SIX TIMES 


TITLE DOCMVA 


005766 
005767 
005770 


- 005771 


005772 
005773 
005774 
005777 
005778 
005781 
005782 
005785 
005 786 
005 787 
005788 
005789 
005792 
005793 
005794 
005795 
005796 
005797 
005798 
005799 
005800 
005803 
005804 
005 807 


005808 © 


005811 
005814 
005815 
005816 
005817 
005818 
005821 
005822 
005825 
005826 
005827 
005828 
005 829 
005 832 
005833 
005836 
005837 
005840 
005841 
005842 


1043 


1044 


1045 


1046 


1047 


1048 


1049 


104A 


1048 


104C 


1040 


104E 


104F 
1050 


1051 


01£0 
0427 
FAQ) 
5014 


O3FE 
3202 


01€0 


EBOO 


104A 


5018 


3450 


1432 


0207 
01A0 


E502 


0208 
01 A0 
521C 


E104 
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* B HANG 
* LOC ERR 
ERR EQU X*0427° 
* WAIT 
* LD 20 
* AND =X*FE* 
OUT 2 
GNB 
WAIT 
B T™25B 
* NOP 
* 
* CHANNEL PROGRAM FOR CHARACTER SIZE AND 
* CRC» PARITY TESTS CBROADBAND RECV.) 
* 
* ORG x*' 200° 
CHLP8 EQU $ 
* LO 24 
* OUT 4 OUTPUT SYNC. CHARACTER 
* LD 20 
* OUT 2 OUTPUT LINE CONTROL 
* WAIT 
* LOC SYCH GET IN RECV. IN SYNC. 
SYCH EQU xX*0207° 
* RECV 0 
* BART SCY2 
* WALT 
* LOC SCcY2 
ScCy2 Eau x*0208° 
* RECV 0 
* C 28 
* BET SYC 
* SFS 
* B SYCH 


aN, 
a ( 
SF 


eo 


TITLE DCMVA 


005843 
005 846 
005847 
005 848 
005 849 
005852 
005853 
005854 
005855 
005856 
005859 
005860 
005863 
005 864 
005867 
005868 
005871 
005872 
005875 
005876 
005879 
005880 
005883 
005 884 
005887 
005888 
005891 
005892 
005895 
005896 
005897 
005 898 
005901 
005902 
- 005903 
005904 
005905 
005908 
005909 
005912 
005913 
005916 
005917 
005918 
005921 
005922 
005925 
005926 
005927 


1052 


1053 


1054 


1055 
1056 
1057 
1058 
1059 
105A 
1058 
105¢ 


L050 


105E 


1OSF 


1060 


1061 


1062 


1063 


1064 


O3€E0 
0213 
FSES 
0201 


0216 


AC92 


19 F4 


F950 


1892 


32E1 


3550 


O2ZE2 


TED? 


40F1 


0229 


OEES 


0201 


022C 


A252 


1EE1 


F971 


E34? 


EQ F4 


O2 36 
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SCY1 EQU X*0216' 


* 
* 


* 


SXBC EQU X*0229° 


*® 


* 


SXB1 


x 
* 


* 


Loc SYC 
x*0213! 
BART ScyY 1 
WAIT 
LOC scy1 
RECV 0 
C =x'19' 
BEF SYC 
LD 24 
C =X" 32! 
BET CPRT 
LD 2 
BZT FVBC 
C =x? 40! 
BEF NFBA 
Loc SXBC 
BART  SxB1 
WAIT 
Loc SxB1 
EQU x*"022C! 
RECV 2 
C 30 
BET SXBC 
ST 
BLCT EXT 
B Sx BC 
Loc NFBA 


NFBA EQU X*0236°* 


tiariddenoriatan inner’ cel etd Dubetni net laa eld Salat 2d ol a outa a a al 
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CHECK FOR START OF MESSAGE SHAR. 


IF EQUAL GO TO CRC AND PARITY ROUI INES 
START OF CHAR, SIZE TEST 


BRANCH TO FIVE BIT CHAR. OUTPUT LOOP 


Bi sotecdisu tle bat ach Aaliicee eA Le iatieubalts bakes bund Bae 


TITLE DCMVA 


005928 
005931 

005932 
005933 
005934 
005935 
005938 
005939 
005940 
005941 

005944 
005945 
005948 
005949 
005950 
005951 
005954 
005955 
005956 
005957 
005958 
005961 

005962 
905965 
005966 
005969 
005970 
005971 

005974 
005975 
005978 
005979 
005980 
005981 

005984 
005985 
005988 
005989 
005990 
005991 

005994 
005995 
005996 
05997 
006000 
006001 

006002 
006003 
006006 


1065 


1066 


1067 


1068 


1069 


106A 


1068 
106C 
106D 
106E 


106F 


1070 


1071 


1072 


1073 


1074 


E502 


0239 


-O1A2 


17€3 


3EEO 


02 3F 


F8ES 


0201 


0242 


A052. 


161 
F911 
9216 
E105 
024¢ 
£320 
EOFO 
0250 


20: 1e 


11€0 
0255 


F850 
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* 


BART NFVB 


NFVB EQU X*0239' 


* 


* 


WAIT 

LOC, NFV8 
RECV 2 

ST 

BLCT EXT 
B NFBA 
LOC FVBY 


FVBY EQU X‘O23F* 


* 


* 


BART FVBC 


FVBC EQU XK'0242' 


* 


TKFN EQU X*024C' 


* 


* 


TKF EQU 
* 


* 


WAIT 

LOC FYVBC 
RECV 0 

C 30 
BET FVBY 
ST 

C =X*1E° 
BET TKF 
LOC TKFEN 
BLCT EXT 
B FVBY 
LOC TKF 
x*0250° 

LD 30 
ST 

8 TKEN 
LOC CPRT 


CPRT EQU X*0255°* 


& 


LO 23 


é =1 


HRS ASSEMBLER 5.05 


PAGE 


0106 


TITLE DCMVA 


006007 
006010 
006011 
006014 
006015 
006918 
006019 
006022 
006023 
006024 
006025 
006028 
006029 
006030 
006031 
006032 
006035 
006036 
006037 
006040 
006041 
006044 
006045 
06046 
006047 
006050 
006051 
006052 
006053 
006054 
006057 
006058 
006059 
006060 
006063 
006064 
006067 
006068 
006069 
006970 
006073 
006074 
006075 
006076 
006077 
006080 
006081 
006082 
006085 


1075 


1076 


1077 


1078 


1079 


107A 


1073 


107C 


107D 


1O7E 


107F 


1080 


1081 


1082 


1083 


1084 


1085 


1792 
01€1 
OE 92 
FOE 
O2 SF 
ASES 
02C1 


0262 


A311 


E315 


EO F8 


O02 68 


E502 


O02 68 


0141 


11€3 


Oc EO 


0271 


F8ES 


0201 


0274 


A211 


E303 
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HRS ASSEMBLER 5.05 PAGE 


BET RE1A 
C =x" FO! 
BET RE2A 
LOC RE3A 


RESA EQU X*O25F° 


* 


* 


RE3 EQU 
* 
* 


* 


BART RE3 


WAIT 

LOC RE3 
X*0262" 
RECV 3 
ST 


BLCT EXT 


RE1A EQU X'0268' 


* 


ve 
* 
RE1 EQU 
* 


* 


B RE3A 
LOC RE1A 
BART RE1 
WAIT 

LOC RE1 
X*026B° 
RECV : 

ST 

BLCT EXT 
B RETA 
LOC RE2A 


RE2A EQU X'O271' 


* 


* 
RE2 EQU 
* 
* 


BART RE2 


WAIT 

LOC RE2 
x*0274° 
RECV 2 
ST 


BLCT EXT 


0107 


RYT AE GO ne OR CN mY 


TITLE DCMVA 


006086 
006089 
006090 
- 006091 
006092 
006095 
006096 
006099 
006100 
006101 
006102 
006103 
006104 
006105 
006106 
006107 
006108 
006109 
006110 
006113 
006114 
006117 
006118 
006121 
006124 
006125 
006128 
006129 
0061.30 
006131 
006134 
006135 
006138 
006139 
006142 
006143 
006146 
006147 
006150 
006151 
006154 
006155 
006158 
006159 
006162 
106163 
006166 
006167 
006170 


1086. 


1087 


1088 


1089 


108A | 


1083 
108C 


108D 


108E 
108F 
1090 
1091 
1092 
1093 
1094 
1095 
1096 


1097 


108A 


5002 


3690 
FF 34 


57 1C€ 


0150 
1892 
3261 
3290 
1F51 
1B51 
1¢ 50 
O2E2 
2292 


40F1 


* 


EXT EQU 


* 


toe & & eH FF 


1733.9 edt Fri 


LOC 


X"O27A! 


LO 


OUT 
GNB 


WAIT 
NOP 


EXT 
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CHANNEL PROGRAM FOR CHARACTER SIZE AND 


ORG 


HLP8A EQU 


LO 


OUT 
LD 


OUT 


ST 


BEF 


x*400° 


2 


=X‘ 32° 


248 


=x" 1F° 


CRC/PARITY TESTS (BROADBAND XMIT) 


GET LINE CONFIGURATION 


OUTPUT IT 


i a 


TITLE DCMVA 


006171 
006174 
006175 
006178 
006179 
006180 
006183 
006184 
006187 
006188 
006189 
006190 
006193 
006194 
006197 
006198 
006201 
006202 
006205 
006206 
006207 
006208 
006211 
006212 
006215 
006216 
006217 
006218 
006221 
006222 
006225 
006226 
006227 
006230 
006231 
006232 
006233 
006236 
006237 
006240 
006241 
006244 
006245 
006246 
006247 
006250 
006251 
006254 
006255 


1098 
1099 
109A 
1098 


109C 


109D 
109E 
109F 


10A0 


10A1 


10A2 


10A3 
10A4 
10A5 


10A6 


TOA? 
10A8 


1049 


10AA 


10AB 


OA90 
3-51 
1c 07 
5118 
EQ15 
0426 
92 80 
F1OA 
9O7F 


pe eB & 


0751 
1BEO 
04 33 
0890 
FFS1 
1c 07 
5118 
043A 
501C 
O3FF 
ST17E 
0440 
S501C¢ 


5318 


Lemar mae eek ny Aone tas earthen de geet al Panu salto e E8r ee ug glow iinah aedivawaa it dda abv el 
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* ST 28 

* SR 

* ST 27 

* B 247 
LOC N611 
N611 EQU x*0426° 

* C =X *80° 
* BEF N711 

* LD =x*7Ft 
* ST 28 

* SR 

* ST eo? 

* 8B 247 

* LOC N711 
N711 EQU X*'0433° 

* a) =X°FF! 
* ST 28 

* SR 

* ST 27 

x LOC 247 
247 EQU X*0Q43A° 

* LOD 28 

* AND =X*FF? 
* ST 30 

* LOC 248 
248 EQu x*0440' 

* LD 28 

x AND 24 

* ST 28 


PAGE 


sinbviabuda ional aliniaitealabalcstadabtdiobechtntadiales Secs aru Sie oe dale Baa el adalat alla ad Ube od Bek yeaa la ts Mee itn Ab SSRIS IY a a EG ESET a A ae rant el ee 


0109 


TITLE DCMVA : 07/28/78 1733.9 edt Fri HRS ASSEMBLER 5.05 PAGE 0110 


006258 10AC 511C€ 


006259 | ' Lo =6 

006262 10AD 9006 

006263 . Loc —-zaz 

006264 0448 Z22 EQU xX'0448" 

006265 * ST 63 

006268 10AE 513F 

006269 . Lb 24 

006272 10AF 5018 

006273 : SEND 0 

006276 * Lb 63 

006277 1080 6050 

006280 ' DEC 
006281 1081 3F0S | 

006282 ' BIT «232 

006285 1082. £203 | 

006286 . BART 222. 

006289 1083 ESES 

006290 . Loc 232 

006291 0454 232 QU x*0454" 

006292 . Lo =x119! 

006295 1084 9019 | 

006296 ' SEND 0 

006299 ‘ Lb 24 

006300 1085 6050 

006 303 . C =x4 32! 

006304 1086 1892 

006307 * BET CPRTX 

006308 1087 32€1 : 

006311 . Lo 2 
(006312 1088 1850 

006315 | . BzT = 2X21 

006316 1089 0262 

006319 * LOC XPYZ 

006320 0461 XPYZ EQU X'0461* 

006321 . Lo 

006322 108A 0¢10 

006323 ' AND 27 

006326 1088 5318 

006327 . SEND 2 cs 
006330 , BLCT ZEXT f 
006331 10BC 62E3 Ne 
006334 * BART XPYZ _ 
006335 1080 36€5 ; 
006338 . WAIT 

006339 10BE F901 

006340 : 8 KPYZ 


006343 10BF EQF6 
006344 * LOC 2XZ1 


Sehemrur douiutcasen gentlest ea yeah odie A Sol er eb eS A ial ei bl i es ib la 


ile Da OEE 


TITLE DOCMVA 


006345 
006346 
006347 
006348 
006351 
006354 
006355 
006358 
006359 
006362 
006363 
006364 
006365 
006 368 
006369 
006370 
006371 
006374 
006375 
006378 
006379 
006382 
006 383 
006386 
006387 
006390 
006391 
006392 
006393 
006394 
006397 


006398- 


006401 
006402 
006405 
006406 
006407 
006410 
006411 
006412 
006413 
006414 
006417 
006418 
006421 
006422 
006425 
006426 
006427 


10C€0 
10C1 
10C2 


10C€3 


10C4 


10C5 
10C6 
10C7 
10¢8 


10C9 


10CA 


10C8 
10CC 
10CD 


10CE 


10CF 
1000 


10D1 


046C 


1053 
1B60 
E328 


ESF9 


01€0 
0477 
F650 
1792 
0161 
OE 92 
FOE1 
04 81 


1310 


6S ES 
18E5 
FBO1 
EO F8 


048A 


1061 
—30F 


ES FB 


oaiicdtdna issu auiiusiaBdi Si adits alles likin 
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ZXZ1 EQU xX*046C° 


* LD 

* AND 27 

* SEND 0 

* BLCT ZEXT 
* BART 2X21 
* WAIT 

* B ZX21 
a Loc CPRTX 
CPRTX EQU X'Q477° 

* LO 23 

* c =] 

* BET BBCR 
* C =x*FOQ* 
* BET BBPR 
* LOC BBPCR 
BBPCR EQU xX*0481° 

* LD 

* SEND 3 

* BLCT ZEXT 
* BART BBPCR 
* WAIT 

* B BBPCR 
* LOC BBCR 
BBCR EQU X'O4BAS 

* LD 

* SEND 1 

* BLCT ZEXT 
* BART BBCR. 
* WAIT 

* B BBCR 


isi MSRRE LAER bod AREAS BE A aN io P asi iLO OBAMA cca A ine bal RN aa can ARMA wet, dcnbt oR ns mnt aN 
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TITLE DCMVA 


006428 
006431 
006432 
006433 
006434 
006435 
006438 
006439 
006442 
006443 
006446 
006447 
006448 
006451 
006452 
006453 
006454 
006457 
006458 
006461 
006464 
006465 
006468 
006469 
006472 
006473 
006476 
006477 
006478 
006479 
006480 
006481 
006482 
006483 
006484 
006485 
006488 
006489 
106492 
006493 
006496 
006499 
006500 
006503 
006504 
006507 
106508 
006509 
006512 


1002 


10D3 © 


10D4 
1005 
10D6 
1007 


1008 


1009 
TODA 


1008 
100C€ 


10DD 


TODE 


10DF 
10£0 


10€1 


10£2 


0171€£0 
0493 
F&10 


62E3 


O6ES 


FBQ1 


EO F8 
049¢ 


9000 


6060 
5014 


93 FE 


3202 


0100 


10 DE 


5002 


3690 
0D 34 


5014 


32C1 


07/28/78 


* 


1733.9 edt Fri 


HRS ASSEMBLER 5.05 PAGE 0112 


BBPR EQU X*0493' 


* 


* 
* 


* 


ZEXT EQU X*049C* 


* 


* 
* 


* 
* 
* 


CHLP9 


* 


LOC BBPR 
LO 

SEND 2 
BLCT ZEXT 
BART BBPR 
WAIT . 

B BBPR 
LOC ZEXT 
LO =0 
SEND 0 
SEND 0 

LD 20 
AND =X°FE! 
OUT 2 
GNB 

WAIT 

NOP 


CHANNEL PROGRAM FOR MARK & SPACE (REC) 


ORG 


EQU 


LO 


OUT 
LD 


OUT 


x*200' 


*) ; GET LINE CONFIG, 
6 OUTPUT IT 

=X*p° LOAD LINE SPEED 
4 OUTPUT IT 

20 GET LINE CONTROL 
2 

0 


samc i sett dasa cdc te i lh lesbo hn tt et i Bs il i i a delish SSN alt aii dat isin ins a desaturated 


TITLE DCMVA 


006513 
006514 
006515 
006516 
006517 
006520 
006521 
006522 
006523 
006526 
006529 
006530 
006533 
006534 
006537 
006538 
006541 
006542 
006545 
006546 
006547 
006548 
006551 
006552 
006553 
006554 
006557 
006558 
006559 
006560 
006563 
006566 
006567 
006568 
006569 
006570 
006571 
006572 
006573 
006574 
006575 
006576 
006577 
006578 
006579 
006580 
006581 
006584 
006585 


10E3 


10E4 


10€5 
10£6 
10€7 
10E€8 
10€&9 


1OEA 


10€8 


10EC 


10€D 


1OEE 


10EF 


10F0 


10F1 


1O0F2 


A011 


020D 


01A0 


11Fe 
OA 25 
9301 
E205 
9OFE 
513¢€ 
O21A 


E304 


01€0 
O21F 
EF 90 


00 32 


02 01 


0000 
10 F1 


0400 


1092 


05 F1 
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* WAIT 

* LOC RAN 
RAN EQU X*O020D°* 

* RECV 0 

* ST 

* BZF BINTA 
* IN 5 

rn AND =4 

* BZT BINTA 
* LD =X* FE! 
* ST 60 

* LOC BINTA 
BINTA EQU X*O21A? 

* BLCT TONI 

* WAIT 

* B RAN 

* LOC TONI 
TONI EQU X*O2TF® 

* LD =0 

* OUT 2 

* GNB 

* WAIT 

* NOP 

* 

* CHANNEL PROGRAM FOR MARK & SPACE (XMIT) 
* 

* ORG x*400° 
CHLPOA EQU g 

* LOC CLRK 
CLRK EQU X*'0400° 

* LD» GET CHARACTER 
* C = 

x BEF DENW 


0113 


TO SEND OUT 
CHECK TO SET MARK AND SPACE CONDITION 


TITLE DCMVA 


07/28/78 
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006588 * LD 20 SET MARK OR SPACE CONDITION 

006589 10F3 OAS5O | 

006592 : OR 26 

006593 10F4 1454 

006596 t ST 20 

006597 10FS5 1A51 

006600 * OUT: 2 

006603 10F6 1432 

006604 : * LD =5 

006607 10F7 9005 

006608 Loc DENW 

006609 O40E DENW EQU X'O4QE! | 

006610 * C =7 CHECK TO RESET MARK AND SPACE CONDITION 
006613 10F8 9207 

006614 r BEF BAMB 

006617 10F9 F119 

006618 s LD 20 RESET MARK OR SPACE CONDITION 

006621 10FA 5014 

006622 s XOR 26 

006625 10FB. 551A 

006626 . ST 20 

006629 10FC 5114 

006630 * OUT 2 

006633 " LD 26 

006634 10FD 3250 

006637 : c =x*10° IF SPACE CONDITION CHECK FOR FRAMING ERROR 
006638 10FE 1A92 

006641 , s BEF KUNTA 

006642 10FF 10F1 

006645 7 “ IN 5 

006648 1100 O0a2s 

006649 “ AND =1 MASK OTHER BITS OUT 

006652 1101 9301 

006653 * BZT KUNTA BRANCH ON FRAMING ERROR SET 

006656 1102 £205 

006657 * LD =X‘EE' 

006660 1103 90QEE 
006661 ST 61 

006664 1104 513p = 
006665 * Loc KUNTA aN 
006666 0428 KUNTA EQU X*0428! a. 
006667 LD =7 a 
006670 1105 9007 

006671 t LOC BAMB 

006672 042A BAMB EQU X'042a° 

006673 t SEND 0 

006676 * BLCT RAY 

006677 1106 60&3 

WAIT 


006680 | * 


C 


dustin eid, EAH EAN tit canta task ede hh te lal lel tithe AS it deals nb Eaadeaia ita ue, det EG Sal Ace ican ems anaes ak tell ch 


TITLE DCMVA 07/28/78 1733.9 edt Fri HRS ASSEMBLER 5.05 PAGE 0115 
( 7 006681 1107 0401 
006682 * B CLRK 
oka 006685 1108 €0D1 
006686 * LOC RAY 
006687 0430 RAY EQU X*0430! 
006688 * WAIT 
006689 tk LD =X* FF? 
006690 1109 0190 
006693 * SEND 9) 
006696 110A FF60 
006697 * GNB 
006698 * LD 20 
006699 1108 0250 | 
006702 * AND aX'fe? 
006703 110C 1493 
006706 se ST 20 
006707 1100 FES1 
006710 * WALT 
006711 110€ 1401 
006712 * NOP 
006713 110F , CHLP10 EQuU $ 
006714 * 
006715 * ECHO BACK CCP &LCT TABLE 
006716 * 
006717 110F LOPCCP EQU- $ 
006718 * ORG x* 200° 
006719 110F oood 
006720 + 
006721 * 
006722 x RECEIVE CCP 
006723 * 
006724 * 
006725 * LD 24 
006728 1110 5018 
006729 * ouT 4 OUTPUT SYNC CHARACTER 
006732 * LD 2 
006733 1111 3450 
006736 * OUT 6 OUTPUT CHARACTER LENGTH 
006739 1112 0236 
—— 006740 - Lo =3 SET RECEIVER & XMITTER ON 
( 006743 1113 9003 
006744 * ST 20 
006747 1114 5114 | 
: 006748 * OUT 2 
006751 * LOC LOPWT 
006752 0208 LOPWT EQU x*020B? 
006753 * WAIT 


006754 1115 3201 
006755 * LD 17 


NaS Slain eas nella ead SORE RM Ae a eens eae cen poesece anes Art conta 


TITLE OCMVA- 


006758 
006759 
006762 
006763 
006766 
' 006767 
006770 
006771 
006774 
006775 
006778 
006779 
006780 
006781 
006784 
006785 
006788 
006789 
006792 
006793 
006796 
006797 
006798 
006801 
006802 
006805 
006806 
006809 
006810 
006813 
006814 
006817 
006818 
006821 
006822 
006825 
006826 
006829 
006830 
006833 
006834 
006837 
006838 
006 841 
006842 
006845 
006846 
006847 
006848 


1116 


1117 


1118 


1719. 


119A 


1118 
111¢ 
1110 
111 
1141F 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
112A 


1128 


5011 


9310 


F206 


2151 
18E0 
0217 
F590 
0051 
1190 
3A51 


1803 


9003 


5119 
SOQE 
9380 
5419 


5119 


50 0€. 


9320 


E207 
9040 
5419 
5119 


0238 


07/28/78 
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LOPDSS EQU X'0217° 


* 


* 


AND =x*108 
BZF LOPDSS 
IN 1 

ST 24 

8 LOPWT 

Loc LOPDSS 
LD =0 

ST 17 

LD =X" 3A? 
ST 24 

SFS RES YNC 
LD =3 

ST 25 

LD 14 

AND =X" go! 
OR 25 

ST 25 

LD 14 

AND =x'20' 
BZT LOPDSO 
LD =x'40! 
OR 25 

ST 25 

LOC LOPDSO 


LOPDSO EQU X'0238' 


* 


LD 


25 
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BRANCH IF DATA SET STATUS CHANGE 


GET & STORE RECEIVED CHARACTER 


DATA SET STATUS CHANGE PROCESSING 
CLEAR DATA SET STATUS CHANGE FLAG 


SET UP SYNC CHARACTER FOR XMIT 


RECEIVER 


ECHO BACK DATA SET STATUS 


SET UP DATA TERMINAL READY 


SET REQUEST TO SEND 


OUTPUT NEW DATA SET STATUS 


TITLE DCMVA 


006851 
006852 
006855 
006856 
006859 
006860 
006863 
006864 
006865 
006866 
006867 
006868 
006869 
006870 
006871 
006874 
006877 
006878 
006879 
006880 
006885 
006886 
006887 


1172C 


112D 


112E 


112F 
1130 
1131 
1132 


1133 


5019 


5114 


32E0 


O23F 
CD50 
1831 
01€0 
FBOO 


1133 
0048 


fete 1, ns angen é Aig x, Wiis eine hotie Aad Tito s ittes es i Ag dhe Lape fate, Sy Saletan Sather ache BS el Saenincne tts, Bp ean ae aed ara erase Plas on Retina ik pe TR BMEAKR UR. 4 wee ww IT ead eed pigs sue nen re Ne ane pe “Al basa geoehb stielusn ls oars sheet dhalae vi Nita ASD Bo 
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* OUT 2 
LOPWT 


* 
@w 


XMIT CCP 


LOC LOPXMT 
OPXMT EQU X*O23F* 
LO 24 


+ 7 © ee eH HF 


GET CHARACTER TO SEND 
* OUT 1 
WAIT 


LOPXMT 


LOPCCE EQU $ 


LOPSZE DC (LOPCCE-LOPCCP)*2 CCP SIZE (BYTES) 


SO da lech i la Skint Mal laden Rohit TNR ii Ml uli ibaa, alae Aino atleoma nt cate ils bi BA Loft sonal ates lM diac dR MLN a ASL AR Ta ch al 


TITLE DCMVA 


006888 
006889 
006890 
006891 
006892 
006893 
006894 
006895 
006896 
006897 
006898 
006899 
006900 
006901 
006902 
006903 
006904 
006905 
006906 
006907 
006908 
006909 
006910 
006971 
006912 
006913 
006914 
006915 
006916 
006917 
906918 
006919 
006920 
006921 
006922 


006923. 


006924 
006925 
006926 
006927 
006928 
006929 
006930 
006931 
006932 
006933 
006934 
006935 


1149 
114A 
1148 
114C€ 


1140 
114E 
T14F 
1150 
1151 
1152 


0206 


0226 
3F27 
C002 
C022 
DO08 
AOOF 
3A18 
0000 


0001 
0003 
0005 
0009 
0008 
OOOF 
000¢ 
0018 
001A 


-001C 


OO1E 
0026 


0000 
0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 
0000 
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/ 
* 
* 
LCT TABLE 
* 
* : 
LOPLCT DC ® x*206' RECEIVE CCP START ADDRESS 
DC AND(LOPXMT4Z*FFO0*)+X*0026" XMIT CCP START ADDRESS 
oe z*c002' 8 BIT CHARACTERS 
DC z*c022' 
DC z7*D008' START UP RECEIVE CCP ON DATA SET STATUS 
DC Z*AQOF® DSS MASK 
DC 2*3A18° SYNC CHARACTER (LCT 24) 
DC 0 END OF TABLE 
RSS SSS SSSSSSSASSSSSSSSSSTS SS SS SSSSSTPSSSSSSHS SSI SSSSSSSSSSSSSSsessSsssrsese2rxrszea 
* 1/0 FUNCTION CODES 
* ; 
FOMC OC x*7" OUTPUT MLCP CONTROL 
FOIC oC yea OUTPUT INTERRUPT CONTROL 
Focc = ove xt5? OUTPUT CHANNEL CONTROL 
FOLD = oc x*9? OUTPUT ADDRESS AND RANGE 
FOBL = oC x*p! OUTPUT BYTE INTO LCT 
FOCB vc X*F? OUTPUT CCB CONTROL 
FIR DC x*c* INPUT RANGE 
FIS DC x*18! INPUT STATUS 
FINS oC X*1A! INPUT NEXT STATUS 
FIDSS DC x*1C? INPUT DATA SET STATUS 
FILS oC X*1E4 INPUT LCT ATATUS 
FID DC x*26* INPUT ID 
& 
KSSPSSSPSPSPSSSSSSSSS SPSS SPSCSPSSSS VP SSVSSPSTPVRASAVSBSSSSI STV SPSSTSTSssSsSsVe2Sesseze2zrzezesesqszczqqcosozzrce=q 
* STORAGE CONSTANTS 
* 
«HH 
+H 
TEST dC 0 TEST COMMAND CODE SAVE AREA 
MLXCT DC 0 MODEM LOOPBACK XMIT BLOCK CIR 
MLECT oC 0 MODEM LOOPBACK XMIT ERROR CTR a 
COUNT1 DC 0 DATA BLOCK COUNTER ao 
+H ‘a _ 
HH 
ARFG  0C 0 ADAPTER READY TEST FLAG 
BYTP dC 0 BYTE OFFSET FOR V$CALLS 
CHANL DC 0 
CHSZFG DC 0 CHARACTER SIZE TEST FLAG 
CHNZ DC 0 
COUNT oD¢ 0 


elas Led Mw AMER iS COE AED ESE ahs edad SiS EAA Sab Oe a has TA an ee URE ee NET Ao Tre 3 aE 


TITLE DCMVA 


006936 
006937 
006938 
006939 
006940 
006941 
006942 
006943 
006944 
006945 
006946 
006947 
006948 
006949 
006950 
006951 
006952 
006953 
006954 
006955 
006956 
006957 
006958 
006959 
006960 
006961 
006962 
006963 
006964 
006965 
006966 
006967 
006968 
006969 
006970 
006971 
006972 
006973 
006974 
006975 
006976 
006977 
006978 
006979 
006980 
006981 
006982 
006983 
006984 


1153 
1154 
1155 
1156 
1157 
1158 
1159 
115A 
1158 
115C 
1150 
115E 
1156 


1160 


1161 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
116A 
1768 
176C 
1160 
116E 
116F 
1170 
1171 
1172 
1173 
1176 


117A 
118A 
119A 
1TAA 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0034 
0000 
0000 
0000 
003C 
0000 
0000 
0000 
9000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
FFFF 
0000 


2108 
2118 
2110 
2158 
2150 
2160 


07/28/78 
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cS DC 0 CHARACTER SIZE 

CSB Dc 0 CHARACTER SIZE INCLUDING START AND STOP BITS 
CRCAC DC 0 CRC ACUMMULATOR 

CRCFG DC 0 | 
DIV1 oC 0 DIVISORS FOR TICKS TO MILLSEC SUB-ROUTIJNE 
DIV2 DC 0 
DIV3 oC 0 

DIV4 oC ) 

ERF dC 52 

FBRG DC 0 | 

FWFG DC 0 FIRMWARE PRINT FLAG 

HGSPD DC 0 HIGH SPEED FLAG 

HRTZ DC 60 LINE FREQUENCY 

MASK DC 0 

MSBS  RESV 240 BITS/SEC 

PARFG DC 0 PARITY ERROR TEST FLAG 

PTTY DC 0 PARITY TYPE FLAG 

PSFG oC 0 ° SYNC. PRINT SPEED FLAG 

RANGE DC 0 

RCRC OC 0 RECEIVE CRC RESIDUE 

RLCTAD DC 0 RAM ADDRESS TO READ 

RLCTRG DC 0 RANGE FOR READ FROM RAM 

RUNFG 0C 0 OVERRUN AND UNDERRUN TEST FLAG 

TLOC =O 0 TEMPORARY LOCATION 

TP1 DC 0 

TP2 DC 0 

SBTFG DC 0 STOP BIT TIME TEST FLAG 

SHORT DC 0 TEST FLAG 

STPFG DC 0 STOP I/0 AND CHANNEL RESET FLAG 
WOBFG DC 0 BROADBAND TEST FLAG 

XCRC DC 0 TRANSMIT CRC RESIDUE 

LCTV RESV  3,=1 

ERAR RESV 4,0 ERROR ARRAY FOR ZVSC 

* 

SAV1  RESV 9+7*SAF 

SAV2 RESV 9+7*S$AF 

SAV3 -RESV 9+ 7* SAF 

SAV4 RESV 9+7*$AF 

* 

ETS SS RTS eB STS SSS SS SSS SSS SST SSS SSS SSS SS SPSSSSTSSSTSSSSSSSSsSsS TST s 
x 

* DEFINED CONSTANTS 

* 

ASYN DC x*2108! ASYNC. ID 

ASYN1 DC x*2118! ASYNC. ID NEW BAUD RATE 

ASYNC DC x*2110° CURRENT LOOP ASYNC. 

SYNC OC x*2158" SYNC. D> 

BISYNC DC x*2150° BISYNC. ID 

SYN188 DC x*2160! SYNC. 


MIL 188 10 


TITLE DCMVA 


006985 
006986 
006987 
006988 
006989 
006990 
006991 
006992 
006993 
006994 
006995 
006996 
006997 
006998 
006999 
007000 
007001 
007002 
007003 
007004 
007005 
007006 
007007 
007008 
007009 
007010 
007011 
007012 


007013 


007014 


007015 


007016 


007017 


007018 


007019 


11¢0 
11¢€1 
171C2 
11€3 


11¢4 
11¢€5 
116 


11C€7 - 


11¢€8 
11€9 


11CA 
11¢€B 
1103 
11DC 
1100 
11DE 
11DF 
11E0 
1161 
11E2 


11E3 
11&6 


11€8 
T1EE 


11-3 
11F6 


11FB 
T1FE 


1203 
1206 


1208 
120E 


1213 
1216 


1218 


0203 
0809 
OE OF 
1213 
1819 
1ETF 
2223 
2829 
2E2F 
S235 
3839 
3E3F 
4243 
4849 
4EGF 
5253 
5859 
SESF 
6263 
6869 
6E6F 
7273 
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0405 
OA08 


1415 
1A18 


2425 
2A2B 


3435 
3A3B 


4445 
4A4B 


5455 
5A5B 


6465 


6A6B 


7475 
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w0B3 
WDB3B 
WDBV35 
WOBV5B 
* 

BITO 
B1T1 
BIT2 
BIT4 
BIT6 
BIT? 

* 
CRC16 
* 

ATLT 

* 
ADDRS 
* 
CPFLG 


DOUT1 


TEXT 


TEXT 


TEXT 


TEXT 


x*2138° 
x*2130° 
x*2168'° 
x*2128' 


z*8000° 
2*4000* 
x*2000° 
x*800° 
x*200° 
x*700° 


Z*AQO1 
820 


9,0 

e 
x*117.° 
Z*FO17° 
x'017* 
0 


2*805C° 
x*2c00° 
x*5c* 
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WIDEBAND WITH 301/303 
BI-SYNC. WIDEBAND WITH 301/303 
WIDEBAND WITH v35 

BI-SYNC. WIDEBAND WITH V35 


ACTIVE LINE TABLE 
LINE ADDRESS TABLE 
LCT FLAG FOR CRC ONLY 


PARITY ONLY 
CRC AND PARITY 


2#000102030405060708090A0B0C ODOEOF® 


z*10111 


213141516171 8191 A1BICIDIEIF® 


2920212223242 5 26272 B292A2B2C 2D2E2F' 


2°303132333435363738393A3B3C 3035E3F® 


29404142434445664746 B494A4B4C4D4E4GF® 


Z*505152535455565758595A5B5CS5D5E5F* 


Z*606162636465666768696A6B6C 6D5E6F® 


Z*70717 2737475 76777 B79TATBICTDS 


TITLE OCMVA 


907020 
007021 
007022 
007023 
007024 
007025 
007026 
007027 
007028 
007029 
007030 
007031 
007032 
007033 
007034 
007035 
007036 
007037 
007038 
007039 
007040 
007041 
007042 
007043 
007044 
007045 
007046 
007047 
007048 
007049 
007050 
007051 
007052 
007053 
007054 
007055 
007056 
007057 
007058 
007059 
007060 
007061 
007062 
007063 
007064 
007065 


007066 


1217E 
1222 


1223 
1224 
1225 


1226 


1227 
1229 
122B 
122D 
122F 
1231 
1233 
1235 


1237, 


(1238 


1239 
123A 
1238 
123C 
123D 
123E 
123F 
1240 
1241 
1242 
1243 
1244 
1245 
1246 


1247 
1248 
1249 
124A 
1248 
124C 
124D 
124E 


aida eA teh ei ts occ ea Sd ile deh Se ii a Ro uch cA, ie Ce ah i Sa ats ps gina 
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7677 7879 7A7B 
77D 
5555 


0000 
0000 
0000 


0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


OOOA 
OOCF 
0016 
0018 
OOTE 
0028 
00 3C 
0078 
00D2 
00 FO 
01 68 
0190 
01€£0 
03c0 
07 80 
OF O00 


OOOA 
OOOF 
0016 
0018 
OO1E 
003C 
0078 
0084 
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DFLT DC K* 5555" DEFAULT CHARACTER 
t 
FIVSEC DC 0 5 SECONDS OF TICK ON RIC 
SECL DC 0 
SECH DC 0 
* 
FRIMRV DC 0 FIRMWARE REV NUMBER 
* 
* LINE SPEED IS IN SECOND WORD FOR LOW AND MEDIUM 
* SPEED LINES. FOR HIGH SPEED LINES THE TWO 
* WORDS ARE PUT' TOGETHER FORMING A SINGLE HEX WORD 
* CONSISTING OF 32 BITS. 
* 
SYLSPO RESV 20 SYNC. LINE O SPEED 
SYLSP1 RESV 200 SYNC. LINE 1 SPEED 
SYLSP2 RESV 220 SYNC. LINE 2 SPEED 
SYLSP3 RESV 270 SYNC. LINE 3 SPEED 
SYLSP4 RESV 220 SYNC. LINE 4 SPEED 
SYLSPS RESV 200 SYNC. LINE 5 SPEED 
SYLSP6 RESV 220 SYNC. LINE 6 SPEED 
SYLSP7 RESV 220 SYNC. LINE 7? SPEED 
x 
NSPTBL OC 10 

dC 15 

OC 22 

DC 27 

DC 30 

DC 40 

DC 60 

DC 120 

DC 210 

DC 240 

DC 360 

DC 400 

dC 480 

DC 960 

DC 1920 

DC 3840 
* 
OSPTBL DC 10 

DC 13 

OC 22 

OC 27 

oC 30 

dC 60 

OC 120 

DC 180 
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007067 124F OOFO DC 240 

007068 1250 0168 DC 360 

007069 1251 O1€0 DC 480 

007070 1252 0200 DC 720 

007071 1253 03¢0 DC 960 

007072 1254 O5A0 DC 1440 

007073 1255 0780 DC 1920 

007074 1256 0000 DC 0 

007075 | : * | : 

007076 1257 0032 ALSPBL DC 50 OLD BAUD RATE LINE SPEED TABLE 

007077 1258 0048 dC 75 

007078 1259 OO06€E oC 110 

007079 125A 0087 : DC 135 

007080 1258 0096 DC 150 

007081 125¢ O12¢ DC 300 

007082 125d 0258 DC 600 

007083 125€ 0384 DC 900 

007084 125F 0480 dC 1200 

007085 1260 0708 dC 1800 

007086 1261 0960 DC 2400 

007087 1262 O€&10 DC 3600 

007088 1263 12c0 DC 4800 

007089 1264 1£20 DC 7200 

007090 1265 2580 DC 9600 

007091 * 

007092 1266 0032 CMSPBL DC 50 NEW BAUD RATE LINE SPEED TABLE 

007093 1267 0048 DC 75 | 

007094 1268 OO06E OC 110 

007095 1269 0087 DC 135 

007096 126A 0096 DC 150 

007097 1268 oO0Cc8 © DC 200 

007098 126C 012¢ DC 300 

007099 126d 0258 DC 600 

007100 126€ O41A DC 1050 

007101 126F 0480 DC 1200 

007102 1270 0708 De 1800 

007103 1271 0700 DC 2000 

007104 1272 0960 DC 2400 

007105 1273 12cO0 DC 4800 7 
007106 1274 2580 DC 9600 | ™ 
007107 1275 4800 DC 19200 of 
007108 * 7 Me 
007109 1276 0021 SBITBL OC 33 

007110 1277 OO1E DC 30 

007111 1278 0020 DC 32 

007112 1279 OO1€ DC 30 

007113 * | 

007114 127A 0018 TLTBLA OC x*18° SHOULD BE TABLE FOR DSS TO DSC LOOP ASYC. 


007115 1278 6078 dC X*6078! 


TITLE DCMVA 


007116 
007117 
007118 
007119 
007120 
007121 
007122 
007123 
007124 
007125 
007126 
007127 
007428 
007129 
007130 
007131 
007132 
007133 
007134 
007135 
007136 
007137 
007138 
007139 
007140 
007141 
007142 
007143 
007144 
007145 
007146 
007147 
007148 
007149 
007150 
007151 
007152 
007153 
007154 
007155 
007156 
007157 
007158 
007159 
007160 
007161 
007162 
007163 
007164 


127C€ 
1270 


127E 
127F 
1280 
1281 


1282 
1283 
1284 
1285 


1286 
1287 
1288 
1289 


128A 
128B 


128C 
128D 


128E 


128F 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 


129A 
1298 
129C 
1290 


129E 
129F 
12A0 


8098 
EO F8 


B0B0 
FOFO 
B0B0 
FOFO 


0010 
6070 
8090 
EOFO 


2020 
2020 
AQ AO 
EOEO 


OOEO 
10 FO 


0060 
90 FO 


2020 


0020 
4060 
0020 
4060 
0010 
4050 
0010 
4050 
0000 
0040 
0040 


0001 
0203 
FFOQ? 
0809 


0001 
0203 
0007 
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* 


TLTBLC 


* . 
TLTBLS 


wHH 
*# 
TLTBLM 


*# 
«HH 


* 


TLUWB3 


xk 


TLUV35 


* 


SPACE 
* 


TLUTB2 


Z°8098' 
Z*EQF8° 


z*8080! 
Z*FOFO' 
2*8080! 
Z*FOFO! 


x'108 

X*6070! 
z*8090' 
Z*EOFO" 


X*2020° 
x*2020° 
Z*AQAQ* 
Z*EOED' 


X'EQ' 


X*O10F0° 


x*60' 
Z*90FO' 


z*2020° 


x*20'° 
x*4060' 
x*20° 
x*4060° 
x*10* 
x*4050! 
x*10° 
x*4050'° 
0 

x*40° 
x*40* 


1 
x*0203! 
Z*FFO7* 
x*0809! 


‘ 
x'0203' 
x*0007° 


HRS ASSEMBLER 5.05 


SHOULD 


SHOULD 


SHOULD 


SHOULD 


SHOULD 


PAGE 


BE 


BE 


BE 


BE 


BE 


TABLE 


TABLE 


TABLE 


TABLE 


TABLE 


0123 


FOR 


FOR 


FOR 


FOR 


FOR 


XMIT MARK SHOULD BE 


XMIT SPACE SHOULD BE 


ian sat ER HBG d Teac Wa eel 


CURRENT LOOP ADAPT. 


DSS TO DSC LOOP SYNC. 


MODEM DOSS TO DSC LOO 


BROADBAND 301 


BROADBAND ¥V35 . 
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007165 1%12A1 Q809 DC x*0809! 

007166 * 

007167 12A2 0002 C2 oc 2 

007168 12A3 0004 C4 DC 4 

007169 12A& 0008 C8 DC 8 

007170 %12A5 0010 C16 DC 16 

007171 12A6 0200 HX200 oC x*200? 

007172 12A7 0400 HX400 OC x*400° 

007173 * 

007174 KSSSSSSSSSSSSSSSSSSSSS SSS SS SSSSSSSSSSSSSISSSSSSSSSsSssSs2Sssseess esses sczersseezzz=z 
007175 * 

007176 * TRAP SAVE AREAS 

007177 * 

007178 12A8 1280 TSA1 oc <TSA2 

007179 12a9 -0000 RESV 443 *$AF>0 

007180 1280 1288 TSA2 DC <TSA3 

007181 1281 OO00 RESV 4+3* SAF +0 

007182 1288 0000 TSA3 RESV 840 

007183 | * 

007184 &kESSSM STA ASST esses sess sss ss ss ss tse stssssssrsesstssssssssesssssssss2s2es2e22ess=e2 
007185 * 

007186 * INTERRUPT SAVE AREAS 

007187 — * 

007188 12c¢0 0000 ISA1 RESV 3+$AF20 INTERRUPT SAVE AREA FOR LEVEL 1 (RTC) 
007189 12C4 0Q048C¢ ISA1P DC <NOSPD- 

007190 12¢5 6000 . DC x*6000° 

007191 * 

007192 12¢6 0000 | ISA4 RESV 3+SAF,0 

007193 12CA 0368 ISA4P DC <SPSYT1 

007194 12¢€8 =6000 DC x*6000° 

007195 * 

007196 * SSSR SSS SSS SS SSH ST SSS SS SSS Se Se SSS SSS ss sss sees sss ss sesssessssssserrzsesszz222 
007197 * 

007198 * LINE CONTROL TABLES 

007199 * 

007200 12cC 0206 ‘LCT DC x*206' STARTING ADDRESS OF CHANNEL PROG. 
007201 12CD0 0414 DC X*414!° RECV. LINE CONTROL SET TEST MODE 

007202 12cé d000 DC 2 TABLE END 

007203 ‘ : opie 
007204 12cF 0206 LcT1 ve x*206! a ™ 
007205 1200 0426 | DC X*426' ; Ni if 
007206 1201 C802 DC Z*c802' i al 
007207 i202 C82e dC 2*C 822° 

007208 12D3 OF 18 LCTIS OC X*F18° 

007209 1204 C714 LCILCR OC 2°*¢714! LINE CONTROL 

007210 1205 QO000 LCISYF DC 0 SYNC. FLAG 

007211 1206 0000 DC QO. END OF TABLE 

007212 * 


007213 i2d7 O26 LCT2 DC X*206' 


TITLE DCMVA 


007214 
007215 
007216 
007217 
007218 
007219 
007220 
007221 
007222 
007223 
007224 
007225 
007226 
007227 
007228 
007229 
007230 
007231 
007232 
007233 
007234 


007235. 


007236 
007237 
007238 
007239 
007240 
007241 
007242 
007243 
007244 
007245 
007246 
007247 
007248 
007249 
007250 
007251 
007252 
007253 
007254 
007255 
007256 
007257 
007258 
O07 259 
007260 
007261 
007262 


1208 
1209 
12DA 
1208 
12DC€ 
12DD 
12DE 


12D0F 
12E0 
1261 
12E2 
12E3 
12€4 
12E5 
12E6 


12E? 
12E8 
12€9 
12EA 
12E8 
12EC 
12ED 


12EE 
12EF 
12F0 
12F1 
12F2 
12F3 
12F4 
12F5 
12F6 
12F7 


12F8 
12F9 
12FA 
12Fa 
12FC 
12FD 
12FE 
12FF 
1300 
1301 


1302 
1303 


0426 


C8C2 
C822 
OF 18 
C714 
0117 
0000 


0206 
0426 
cO02 
CO22 
0000 
C714 
0000 
0000 


0206 
04 26 
0002 
0022 
0000 
C714 
0000 


02C6 
04 26 
C8C2 
C822 
OF 18 
C714 
OF 10 
OF 11 
0000 
0000 


02 C6 
0226 
6027 
C802 
C822 
OF 18 
C714 
0210 
017125 
0000 


0206 
0226 
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LC2CFR 
LC2CFX 
LCT2S 

LCT2FG 


* 
LCT3 


LC3CFR 
LC3CFX 
LCT3S 

LC3SYF 


* 
LCT4 


LC4CFR 


LCGCFX 
LCT4S 


LCT5S 


LCSSYF 


* 


LCT6 


LCT6S 


LCTOTF 


LCT? 
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x*426' 
z*C 802° 
Z*C 822° 
X*F18* 
z*c714° 
sad I fa 
0 


X*206° 
X*426' 
z*c002* 
z*cO022' 
0 ° 
z*c714! 
0 

140 


x*206% 
X*426* 
2 

Ke 22" 

0 
z*c7i14' 
140 


x*206° 
X*426° 
z*c80e'° 
Z*C822' 
X'F18* 
Z*C7148 
x*F10* 
X*F11° 
0 

0 


X*206' 

x'2268 

x*6027! 
z*c 802! 
2*C822! 
X*F18! 

2*C714" 
x*21D! 

x*125! 

0 


x*206° 
X*226° 
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FLAG FOR TYPE OF SEND AND RECV 


RAM STARTING ADDRESS CRECV) 
RAM STARTING ADDRESS (XMIT) 
CONFIGURATION CRECV) 
CONFIGURATION (CXMIT) 

SPEED IN SCRATCH LOCATION 
LINE CONTROL CRECV) 

SYNC FLAG 


LCT STATUS BYTES 
i] 


SYNC. LINE FLAG 


DISABLE PAUSE 


TITLE DCMVA 


007263 
007264 
007265 
007 266 
007267 
007268 
007269 
007270 
007271 
007272 
007273 
007274 
007275 
007276 
007277 
007278 
007279 
007280 
007281 
007282 
007 283 
007284 
007285 
007286 
007 287 
007288 
007289 
007290 
007291 
007292 
007293 
007294 
007295 
007296 
007297 
007298 
007299 
007300 
007301 
007302 
007303 
007304 
007305 
007306 
007307 
007308 
007309 
007310 
007311 


1304 
1305 
1306 
1307 
1308 
1309 
130A 


1308 
130C¢ 
130D 
130E 
130F 
1310 
1311 
1312 
1313 
1314 


1315 
1316 
1317 
1318 
1319 
131A 
1318 


131¢ 


131) 
131E 


434F 


1320 
1321 


1322 
1323 
1324 
1325 
1326 


1327 
1328 
1329 


C802 
C822 
FC 1D 
0439 
0105 
0125 
0000 


0206 
04 26 
C802 
C822 
C5718 
C714 
0105 
0125 
0000 


0000 


0206 
04 26 
C802 
C822 
0000 
C314 
0000 


0006 


OE 17 
OE 2F 
00 30 
003¢ 
0400 


OE 4D 
OE 75 
0050 
0060 
0400 


OE AS 
OECI 
0048 


Oe aS ee ee a ee 
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DC z*c 802° 
DC Z*C822° 
LC7SM OC Z*FC1D MASK TO CHECK BITSC(CFC-ASY. F8&-SYC.) 
DC x*439° TLU POINTER TABLE 1 
DC x*105° 
DC x*125! 
RESV 120 
* 
LCT8 DC x*206' 
oc x*426° 
DC z*c8&02° 
DC Z*C822! 
DC z7*¢0518° 
DC 270714! 
DC x*105? DISABLE PAUSE 
DC x*125% DISABLE PAUSE 
LCT8FG DC 0 
RESV 120 
* 
LCT9 DC X*206! 
DC X*426° 
DC Z2*C 802° 
DC 7*C822' 
LCTOMS DC 0 
DC 2*¢€314° 
DC 0 
* 
* 
RSS SSS SSS SSS SSSSs SSetsztltss SS SVS SSS SS SSS TST SSS SSS SS SSS SST ST SS SSS SSS = SsTzT SSS ST Se Ss SS 
* 
* FORMAT FOR DRIVER 
* 
WwCP DC 6 RANGE OF PROGRAM IN BYTES 
* 
WCP 1 DC <CHLP1 CHANNEL PROGRAM ADDRESS 
DC <CHLPIA XMIT CHANNEL PROGRAM ADDRESS 
RAG1 DC (CHLPIA-CHLP1)*2 RANGE OF CHANNEL PROGRAM 
RAG2 DC (CHLP2-CHLPIA)*2 RANGE OF PROGRAM IN BYTES 
DC x*400° RAM ADDRESS te 
* no 
wCP2 DC <CHLP2 CHANNEL PROGRAM ADDRESS ey 
DC <CHLP2A XMIT CHANNEL PROGRAM ADDRESS au 
DC (CHL P2A-CHLP2)*2 RANGE OF CHANNEL PROGRAM 
dC ({CHLP3-CHLP 2A) *2 RANGE OF CHANNEL PROGRAM 
dC x*400* RAM STARTING ADDRESS 
* 
WCP3 DC <CHLP3 
DC <CHLP3A 
DC (CHLP3A-CHLP3)*2 


TITLE OCMVA 


007312 
007313 
007314 
007315 
007316 
007317 
007318 
007319 


-007320 


007321 
007322 
007323 
007324 
007325 
007326 
007327 
007328 
007329 
007330 
007331 
007332 
007333 
007334 
007335 
007336 
007337 
007338 
007339 
007340 
007341 
007342 
007343 
007344 
007345 
007346 
007347 
007348 
007349 
007350 
007351 
007352 
007353 


007354 
007355 


007359 


132A 
1328 


132C 
1320 
TS.2E 
132F 
1330 


1331 
1332 


1333 
1334 
1335 
1336 
1337 


1338 
1339 
133A 
1338 
135¢ 
133D 


133F 
1340 
1341 
1342 
1343 


1344 
1345 
1346 
1347 
1348 


1349 
134C 


134D 
1350 


1354 
1357 


OO7E 
0400 


OF O08 
OF 31 
0052 
0072 
0260 


0054 


0016 


OF 94 
OF D1 
007A 
00 8E 
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11 20b 
1142b 
1731b 
1141b 
5545 
4771 
29 23b 
29 21b 
29 20b 
457b 
462c 
2364c 
1237 
1259 
59 76 
5998 
2779b 
341c 


2644 — 


2803c¢ 
2150 
2170 
21 &3 
2175 
2249 
2220 
2208 
6549 
4679 
4920 
47 81 
4755 
1840¢ 


5546 
4772 


938b 

568 
2371 
2400c 
1306 
5977 
5999 


350 
2647 
2 804 


6550 
4 680 
4921 
4782 
4756 
1902 


5548 
4773 


1857b 
668 


2426¢c 
5978 
6003 


394c 
2709¢ 


6551 
4684 
4922 
4783 
4757 
1910 


4911 4912 4913 

2264b 24466 24556 2697b 2821b 

683 2178 2499 

395 455 458 2586c 2598 2639¢ 
2713 27i14c¢ 2718 2719¢ 2723 2775¢ 
2742 2752 


2642 
2777 


wdbv35 
wdbv5b 
xerc 
xmbb 
xmms 
xmns 
xmer 
xmsb 
xmsck 
xmscki 
xmsck2 
xmsck3 
xmsck4 
xmsck5 
xmsy 


455 
5395 
3167 

972b 

367 
7178 
7180 

911b 
1897b 
18 80c 
18 33b 
18 36b 
18 38b 
19C8b 
19 32b 
19 28b 
1918b 
19 23b 
18 89b 
1882c 

97hb 
2303b 
2317b 
2313b 
2311b 
5000 
5110 

496b 
73 8&6 
26 86 

599 
1762 
1121 
1352 
1959 
2248 
2249 
1044 
1791 
1181 
2304 

723 

734 
17 8é6c 
20 87 

740 

751 
1302c 
52 86 

562b 
4108 
4525 
2329 
24 64b 
2332b 


2334¢ 


2337b 
2348c 
2345b 
3298 


1877¢c 
5396 
3168 


999b 


1922b 


2356b 
3.299 


1911 1915¢ 1921 2157c¢ 2205¢ 
5400 

3169 3184 3185 3186 

1548b 

5002 

5172 

638 651 698 715 726 
1153 1170 1178 1588 1599 
1384 1401 1409 

1994 2011 

2025 2042 

1648 

1041 1184 1415 1651 1788 


1052 1195 1426 1662 1799 
1945¢ 1982¢ 2019¢ 2054 2056¢ 


°2107 2539¢ 

1058 1201 1432 1668 1805 
1069 1212 1443 1679 1816 
5291 

4111 4227 4228 4229 

4530 

3300 


2254 


743 


1620 


2022 
2033 
2057¢c 


2039 
2050 


2744 


1728 


1637 


2210 


2215 
2061¢c 


2222 
2227 


1739 

1645 

2076 Pa 
io \ 
12 
OY 


2623 
5701 
4115 
4189 
4167 
4097 
€320 
7162 
6264 
6291 
6232 
6246 

307 
6453 


€345 


XMVV 
xMww 
XMZ2Z 
xnpy 
xp y 
xpyq 
xpyz 
xssb 
zZ2z 
z32 
z47 
248 
zero 
zext 


zhcoomm 
zhiafb 
zhisaz 
zhntsa 
zhpfr 
zhrtcc 
zhrtci 
zhrtcl 
zhehi5 
zhwdtc 
zv$c 
zv$co 
zvser 
zvif 
zv$hr 
zvSia 
zvsid 
zv$ih 
zv$iz 
zv$mir 


zvimlw 


zvipch 
zv$qc 
zv$rd 
zv$t 
zv$tec 
zv$td 
zv$th 
zv$thz 
zvstty 
2x21 


76S labels 
3710 references 
7388 records 
Cu flags 
C m flags 
13 n flags 


310 
6317 


L6& Cross Ref Version L - 


3649 
5727 
4141 
4164 
4185 
4025 
6337 


6 288 
6284 
6161 
6141 

320 
6333 
6421 


776c 
368c 
945¢c 


779C¢ 
370c 


2270b 
2277b 


2370b 


899b 


363b 
324b 
574b 
417b 
S71b 
571b 


322c 
6318 


24 Septs 


3653 
5728 
4142 
4169 
4186 
4026 
6339 


6289 
6285 
6163 
6143 
7380 
6335 
6440 


785c 


947 
1480c 
2335b 
2342b 


2515b 


900b 


454b 
867b 
277 8b 
448b 
57 3b 
5736 


S072 
6322 


1976 


4206 


4051 
6341 


6185 
7382 


6356 
6441 


1470c 


964 


2488b 
2508b 


2248b 


1507b 
2792b 
2776b 
2777b 
3043b 


6360 


eaia niddlaanenaslinalseannetadany rest Ue ehh take eC USM ALTER ng ME UE tye OL am tn ae ewe a 


4207 


4052 
6342 


6186 


6357 
6443 


1486c 


2916¢c 


2516b 


2523b 


2249b 


28Cib 


3077b ° 


2791b 


6361 


4212 

4056 4078 4079 4080 
6343 

618? 6213 6214 6218 
6358 6399 6400 6402 
2919 

2396b 2397b 26865 

3048b 

27936 2804b 


6362 6366 6367 6371 


6419 
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~**eLOC DEFS 


p 


START 
LOW 
HIGH 
CURRENT 


ZECOMM 


*DCMVA 


ZHPFR 

ZETSA 

ZHNTSA 
ZHRTICI 
ZHRTCC 
ZHRTCL 
ZHWOTC 
ZHMERC 


LHIAFB 


ZHTH29 
ZHTH28 
ZHTH27 
ZHTH26 
ZHTH25 
ZHTH24 
ZHTH23 
ZHTH22 
ZKTH21 
ZHTH20 
2ZHTH19 
ZHTH18 
ZHTH17 
ZHMEMP 
ZHTH16 
ZHLERR 
ZHTH15 
ZHNRES 
ZHTH14 
2 HPMEM 
ZHTH13 
ZHP_OP 
ZHTH12 


* ZHTH11 


ZHTH10 
ZHTH9 
ZHTH8 
ZHTH?7 
Z HTH6 
ZHOVEL 
ZHTHS 
ZHOP_N 
ZHTH4 
ZHTH3 
ZHSC_N 
ZHTH2 
ZHTRC 


LINK MAP for DCMVA 


0100 
0000 
1CFF 
1CF4 


0000 
0000 
0000 
0002 
0010 
0014 
0015 
0016 
0017 
OO1F 
0020 
0063 
0064 


0065 


0066 
0067 
0068 
0069 
006A 
0068 
006C 
006D 
006E 
O06F 
O06F 
0070 
0070 
0071 
0071 
0072 
0072 
0073 
0073 
0074 
0075 
0076 
0077 
0078 
on 
007A 
007A 
0078 
0078 
007¢ 
007D 
0070 


OO7E 


OO7E 


78072500 


Z HTH? 
ZHMCL 
ZKISAZ 
ZHIVBS 
ZHTVBS 
*ZVSF 
ZVSF 
*ZVSIH 
ZVSID 
ZVSIH 
ZVSIAD 
ZV$__2 


ZV$__3 
*ZVSTH 
Z2VSTH 
ZVSTD 
ZVSTHZ 
*ZVSIA 
ZVEIA 
ZVSARG 
ZVSABF 
ZV$__1 
ZVSIAV 
*ZVSPCH 
ZVEPCH 
* ZVEMLW 
ZVEMLW 
ZVEMLR 
*ZVST 
ZVSQC 


ZVSTC 


ZVST 
ZV$Q 
*ZVSC 
ZVSC 
ZVSCO 
x*ZVSER 
ZVSER 
ZVSTA 
ZV$__O 
* ZVSGP 
ZV$GP 
ZVS__4 
*ZVSHA 
ZVSHA 
ZVSHZ 
ZVSHS 
* ZVEHD 
ZVSHD 
* ZVSBRK 
ZVSBRK 
*ZVERD 
ZVSIZ 
ZVSTTY 
ZVSRD 
ZVSSV1 
ZVE$SV3 
ZVSAF 
ZVESSV2 
ZVSTID 


OO7F 
OO7F 
0080 
0080 
0080 
1300 
13DD 
13EB 
13F0 
13EB 
13F5 
1400 
141F 
1484 
1484 
14B9 
14 AC 
1404 
1407 
1586 
1588 
1543 
1405 
1593 
1593 
1695 
1695 
16C4 
160C 
16F9 
16ES 
160C 
T6EE 
1700 
170D 
1730 
17414 
1741 
176D 
1754 
1781 
17B1 
1701 
1700 
17D0 
17E? 
17E2 
1816 
1816 
1848 
1848 
1862 
189C 
1875 
1862 
1A37 
1AS7 
1873 
1A47 
1874 


REV. 


REV. 


REV. 


REV. 


REV. 


REV. 


7 


ZVSCF2 187E 


2 VSTK 187A 

ZVSRAR 1878 

ZV$ST1 187F 

ZVSRCC 1880 

ZV$BUD 1876 oo 

ZV$OLB 1882 if r\ 

ZV$RCB 1883 j 

ZVSNSR 1887 

ZVSSTR 1885 

Z VSBKF 188A 

ZVSOTP 1909 

ZV$BKS 1889 

ZV$HR 1891 

ZV$LR 188E 

ZVSDAT 1871 

ZVSHM 1808 

ZVSHRU 1888 

ZV$HRL 188C 

ZV$LRU 188D 

ZVSLRL 188E 

ZV$HBD 188F 

ZVSCFI1 187D 

ZV$__5 1894 

ZVSRMD 1872 

ZV$SMCP 1890 

HIBAUD 188F 

ZVERAW 187C 

ZVSRDT 4A93 

ZVSCTL 1879 

7V$B1 19B4 

ZVSTST 1AE9 

ZVSMDC 1ABD 

ZVSROD 1¢BB 

ZVSISA 1897 

ZV$UIH 1892 

ZVSZRO 1916 

ZV$8SH 1918 

ZVSCPU 1878 

ZVSR5SO 18F6 

ZVER60 1901 

ZVSRT 1B8F8 

ZV$ALL 1877 

*MLCHPG 1¢cO T+Vv 

MLCHPG 1¢¢c0 yn 

ENDCHP 1CF1 ( 
* kU NCDEF 

STRTD2 


**UNLINK MODULE CS) 
ZV £ac 
ZVIID 
ZVETC 
ZV ETO 
ZV #C0 
ZV EMLR 


Ne EM De et MB aS a Ber acl 


waar vow Shibata 


2 WBA hl a er att 


ZV ETHZ 


